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ABSTRACT 

The  Ada  language  has  been  designated  by  the  Department 
of  Defense  to  replace  the  computer  languages  currently  in 
use  by  the  various  services  for  tactical  computer  programs. 
This  thesis  modifies  the  Cornell  Subset  of  Ada  so  that  it  is 
suitable  for  producing  a  LALR(l)  grammar.   Machine  generated 
compiling  tools  such  as  LEX  and  YACC,  available  under  the 
UNIX  operating  system,  are  then  used  to  implement  the  scanner 
and  the  parser  for  this  subset  of  Ada. 
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I.   INTRODUCTION 

A.  BACKGROUND 

The  Ada   language  has  been  designated  by  the  Department 
of  Defense  to  replace  the  computer  languages  currently  in 
use  by  the  various  services  for  tactical  computer  programs. 
Because  of  this  designation  the  Ada  language  will  become  an 
increasingly  important  language  for  computer  science  sub- 
specialists  in  the  Navy.   For  this  reason  the  Ada  language 
was  chosen  as  a  broad  topic  for  this  thesis,  and  specifically 
to  begin  the  work  necessary  for  the  eventual  realization  of 
an  Ada  compiler  for  the  Naval  Postgraduate  School. 

B .  APPROACH 

As  a  first  thesis  project  using  the  Ada  language  it  was 

2 
decided  to  utilize  the  UNIX   compiler  generator  tools,  LEX 

and  YACC  (described  in  detail  in  Section  Two) ,  to  produce 

a  three-address  code  intermediate  language.   This  approach 

was  taken  to  allow  future  thesis  projects  to  utilize  the 


Named  in  honor  of  Ada  Augusta,  Lady  Lovelace,  the 
daughter  of  the  poet,  Lord  Byron,  and  Charles  Babbage ' s 
programmer. 

2 

UNIX  is  a  Trademark/Service  Mark  of  the  Bell  System, 

and  is  an  operating  system  for  the  PDP-11  at  the  Naval 
Postgraduate  School. 


"front  end"  compiler  thus  produced  for  adaptations  to  the 
various  computer  systems  in  use  at  the  Naval  Postgraduate 
School . 

It  was  discovered  that  the  Ada  language  grammar  is  not 
defined  in  a  format  which  is  easily  adaptable  to  machine 
generated  compilers/  thus  necessitating  the  eventual  thrust 
of  this  thesis,  the  adapation  of  the  Ada  language  for 
machine  generated  compilers. 

In  Section  Two  the  complete  Ada  grammar  is  introduced. 
Section  Three  describes  the  use  of  the  UNIX  tools  YACC  and 
LEX.   Section  Four  fully  describes  the  Cornell  Subset  of  Ada, 
followed  by  a  description  of  the  Modified  Cornell  Subset 
(Ada/MCS)  in  Section  Five.   Section  Six  introduces  the  test 
programs  and  the  results  obtained  and  the  conclusions  of 
this  thesis  are  presented  in  Section  Seven. 


II.   THE  COMPLETE  ADA  GRAMMAR 

A.   HISTORY  AND  DESCRIPTION  OF  ADA 

The  language  Ada  is  a  direct  result  of  the  Department 
of  Defense  High  Order  Language  Commonality  program  which 
began  in  1975  with  the  goal  of  establishing  a  single  high 
order  computer  programming  language  appropriate  for  DOD 
embedded  computer  systems.   The  Ada  language  was  designed 
with  three  major  objectives:   program  reliability  and 
maintenance,  a  concern  for  programming  as  a  human  activity, 
and  efficiency. 

The  Ada  programming  language  has  strong  expressive 
power  designed  to  cover  a  wide  application  domain.   It  is 
a  modern  algorithmic  language  designed  to  satisfy  the 
Steelman   requirements.   A  brief  description  of  the  language, 
along  with  an  excellent  language  summary  from  the  "Reference 
Manual  For  the  Ada  Programming  Language  Proposed  Standard 
Document"  [Ref.  2]  which  was  received  during  the  final 
stages  of  this  thesis,  is  quoted  in  the  following  pages. 
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DoD  requirements  for  the  common  high  order  language 

were  formalized  in  a  series  of  documents  extensively 
reviewed  by  the  Services,  industrial  organizations, 
universities,  and  foreign  military  departments  which 
culminated  in  the  Steelman  Report  to  which  Ada  language 
has  been  designed. 


An  Ada  program  is  composed  of  one  or  more  program  units, 
which  can  be  complied  separately.   Program  units  may  be 
subprograms  (which  define  executable  algorithms) ,  packages 
(which  define  collections  of  entities) ,  or  tasks  (which 
define  concurrent  computations) .   Each  unit  normally 
consists  of  two  parts:  a  specification,  containing  the 
information  that  must  be  visible  to  other  units,  and  a 
body,  containing  the  implementation  details,  which  need 
not  be  visible  to  other  units. 

This  distinction  of  the  specification  and  body,  and  the 
ability  to  compile  units  separately  allow  a  program  to 
be  designed,  written,  and  tested  as  a  set  of  largely 
independent  software  components. 

An  Ada  program  will  normally  make  use  of  a  library  of 
program  units  of  general  utility.   The  language  provides 
means  whereby  individual  organizations  can  construct 
their  own  libraries.   To  allow  accurate  control  of  program 
maintenance,  the  test  of  a  separately  compiled  program 
unit  must  name  the  library  units  it  requires. 

Program  units: 

A  subprogram  is  the  basic  unit  for  expressing  an  algorithm. 
There  are  two  kinds  of  subprograms:  procedures  and  functions 
A  procedure  is  the  logical  counterpart  to  a  series  of 
actions.   For  example,  it  may  read  in  data,  update  vari- 
ables, or  produce  some  output.   It  may  have  parameters, 
to  provide  a  controlled  means  of  passing  information 
between  the  procedure  and  the  point  of  call.    A  function 
is  the  logical  coounterpart  of  the  computation  of  a  value. 
It  is  similar  to  a  procedure,  but  in  addition  will  return 
a  result. 

A  package  is  the  basic  unit  for  defining  a  collection  of 
logically  related  entities.   For  example,  a  package  can 
be  used  to  define  a  common  pool  of  data  and  types,  a 
collection  of  related  subprograms,  or  a  set  of  type 
declarations  and  associated  operations.   Portions  of  a 
package  can  be  hidden  from  the  user,  thus  allowing  access 
only  to  the  logical  properties  expressed  by  the  package 
specification. 

A  task  is  the  basic  unit  for  defining  a  sequence  of  actions 
that  may  be  executed  in  parallel  with  other  similar  units. 
Parallel  tasks  may  be  implemented  on  multi-computers, 
multiprocessors,  or  with  interleaved  execution  of  a  single 
processor.   A  task  unit  may  define  either  a  single  executing 
task  object  or  a  task  type  defining  similar  task  object. 


Declarations  and  Statements: 

The  body  of  a  program  unit  generally  contains  two  parts: 
a  declarative  part,  which  defines  the  logical  entities  to 
be  used  in  the  program  unit,  and  a  sequence  of  statements, 
which  defines  the  execution  of  the  program  unit. 

The  declarative  part  associates  names  with  declared  entities. 
For  example,  a  name  may  denote  a  type,  a  constant,  a 
variable,  or  an  exception.   A  declarative  part  also  intro- 
duces the  names  and  parameters  of  other  nested  subprograms, 
packages,  and  tasks  to  be  used  in  the  program  unit. 

The  sequence  of  statements  describes  a  sequence  of  actions 
that  are  to  be  performed.   The  statements  are  executed  in 
succession  (unless  an  exit,  return,  or  goto  statement,  or 
the  raising  of  an  exception  causes  execution  to  continue 
from  another  place) . 

An  assignment  statement  changes  the  value  of  a  variable. 
A  procedure  call  invokes  execution  of  a  procedure  after 
associating  any  arguments  provided  at  the  call  with  the 
corresponding  formal  parameters  of  the  subprogram. 

Case  statements  and  if  statements  allow  the  selection  of  an 
enclosed  sequence  of  statements  based  on  the  value  of  an 
expression  or  on  the  value  of  a  condition. 

The  basic  iterative  mechanism  in  the  language  is  the  loop 
statement.   A  loop  statment  specifies  that  a  sequence  of 
statements  is  to  be  executed  repeatedly  until  an  interation 
clause  is  completed  or  an  exit  statment  is  encountered. 

A  block  comprises  a  sequence  of  statements  preceded  by  the 
declaration  of  local  entities  used  by  the  statements. 

Certain  statements  are  only  applicable  to  tasks.   A  delay 
statment  delays  the  execution  of  a  task  for  a  specified 
duration.   An  entry  call  is  written  as  a  procedure  call; 
it  specifies  that  the  task  issuing  the  call  is  ready  for  a 
rendezvous  with  another  task  that  has  this  entry.   The 
called  task  is  ready  to  accept  the  entry  call  when  its 
execution  reaches  a  corresponding  accept  statement,  which 
specifies  the  actions  then  to  be  performed.   After  completion 
of  the  rendezvous,  both  the  calling  task  and  the  task  having 
the  entry  may  continue  their  execution  in  parallel.   A 
select  statment  allows  a  selective  wait  for  one  of  several 
alternative  rendezvous.   Other  forms  of  the  select  statement 
allow  conditional  or  timed  entry  calls. 
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Execution  of  a  program  unit  may  lead  to  exceptional  situa- 
tions in  which  normal  program  execution  cannot  continue. 
For  example,  an  arithmetic  computation  may  exceed  the 
maximum  allowed  value  of  a  number,  or  an  attempt  may  be 
made  to  access  an  array  component  by  using  an  incorrect 
index  value.   To  deal  with  these  situations,  the  state- 
ments of  a  program  unit  can  be  textually  followed  by 
exception  handlers  describing  the  actions  to  be  taken 
when  the  exceptional  situation  arises.   Exceptions  can 
be  raised  explicitly  by  a  raise  statement. 

Data  Types: 

Every  object  in  the  language  has  a  type  which  characterizes 
a  set  of  values  and  a  set  of  applicable  operations.   There 
are  four  classes  of  types:   scalar  types  (comprising 
enumeration  and  numeric  types),  composite  types,  access 
types,  and  private  types. 

An  enumeration  type  defines  an  ordered  set  of  distinct 
enumeration  literals,  for  example  a  list  of  states  or  an 
alphabet  of  characters.   The  enumeration  types  BOOLEAN 
and  CHARACTER  are  predefined. 

Numeric  types  provide  a  means  of  performing  exact  or 
approximate  computations.   Exact  computations  use  integer 
types,  which  denote  sets  of  consecutive  integers.   Approxi- 
mate computations  use  either  fixed  point  types,  with  absolute 
bound  on  the  error,  or  floating  point  types,  with  relative 
bound  on  the  error.   The  numeric  types  INTEGER  and  DURATION 
are  predefined. 

Composite  types  allow  definitions  of  structured  objects 
with  related  components.   The  composite  types  in  the  language 
provide  for  arrays  and  records.   An  array  is  an  object  with 
indexed  components  of  the  same  type.   A  record  is  an  object 
with  named  components  of  possibly  different  types. 

A  record  may  have  distinguished  components  called  discriminants 
Alternative  record  structures  that  depend  on  the  values  of 
discriminants  can  be  defined  within  a  record  type. 

Access  types  allow  the  construction  of  linked  data 
structures  created  by  the  execution  of  allocators.   They 
allow  several  variables  of  an  access  type  to  designate 
the  same  object,  and  components  of  one  object  to  designate 
the  same  or  other  objects.   Both  the  elements  in  such  a 
linked  data  structure  and  their  relation  to  other   elements 
can  be  altered  during  program  execution. 
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Private  types  can  be  defined  in  a  package  that  conceals 
irrelevant  structural  details.   Only  the  logically 
necessary  properties  (including  any  discriminants)  are 
made  visible  to  the  users  of  such  types. 

The  concept  of  a  type  is  refined  by  the  concept  of  a 
subtype,  whereby  a  user  can  constrain  the  set  of  allowed 
values  in  a  type.   Subtypes  can  be  used  to  define  subranges 
of  scalar  types,  arrays  with  a  limited  set  of  index  values, 
and  records  and  private  types  with  particular  discriminant 
values. 

Other  Facilities: 

Representation  specifications  can  be  used  to  specify  the 
mapping  between  data  types  and  features  of  an  underlying 
machine.   For  example,  the  user  can  specify  that  objects 
of  a  given  type  must  be  represented  with  a  specified 
number  of  bits,  or  that  the  components  of  a  record  are  to 
be  represented  in  a  specified  storage  layout.   Other 
features  allow  the  controlled  use  of  low  level,  non 
portable,  or  implementation  dependent  aspects,  including 
the  direct  insertion  of  machine  code. 

Input  -  output  is  defined  in  the  language  by  means  of 
predefined  library  packages.   Facilities  are  provided  for 
input  -  output  of  values  of  user-defined  as  well  as  of 
predefined  types.   Standard  means  of  representing  values  in 
display  form  are  also  provided. 

Finally  the  language  provides  a  powerful  means  of  para- 
meterization of  program  units,  called  generic  program 
units.   The  generic  parameters  can  be  types  and  subprograms 
(as  well  as  objects)  and  so  allow  general  algorithms  to 
be  applied  to  all  types  of  a  given  class. 


B.   YACC  AND  LEX 

Initial  research  for  this  thesis  began  with  Ada  Syntax 
Summary  which  is  presented  in  the  "Preliminary  Ada  Reference 
Manual"  [Ref .  1] .   The  initial  goal  of  producing  a  parse 
table  for  the  complete  Ada  grammar  involved  preparation  and 
modification  of  the  syntax  to  be  able  to  use  the  PDP-11 
facilities  of  Yet  Another  Compiler-Comiler  (YACC)  [Ref.  5] 
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and  LEX  [Ref .  7] .   YACC  is  a  program  which  takes  the  syntactic 
(BNF)  grammar  rules  of  the  language  and  generates  a  program 
which  takes  as  its  input  the  output  of  a  scanner  program 
(tokens)  and  parses  a  program  written  in  the  defined  language 
(i.e.  Ada).   YACC  also  allows  semantic  rules  to  be  defined  and 
executed  for  each  syntactic  construct  of  the  language,  thereby 
completing  the  compilation  process.   In  place  of  an  input 
stream  of  tokens,  YACC  can  also  use  the  scanner  routine  gener- 
ated by  the  LEX  program  as  a  subroutine  to  provide  the  input 
tokens . 

LEX  is  a  program  that  takes  as  its  input  regular  expres- 
sions defining  the  characteristics  of  the  raw  character 
strings  of  a  language  and  generates  a  scanner  routine.   This 
scanner  routine  has  the  capability  to  eliminate  blanks  and 
comments  and  to  output  groups  of  characters  (tokens)  which 
are  meaningful  to  the  syntactic  rules  of  the  language. 

Executed  together  LEX  and  YACC  produce  a  "machine  gener- 
ated" compiler  whose  input  is  the  character  string  of  the 
program  to  be  compiled,  and  whose  output  can  be  either  an 
intermediate  code  (generalized  form  of  execution  actions) , 
or  a  machine  executable  code. 

Using  YACC  for  the  Ada  language  was  a  two-step  process 

since  the  Ada  language  specification  is  written  in  a  modified 

Extended  Backus-Naur  Form  (EBNF)  and  YACC  requires  the 

language  grammar  to  be  expressed  in  Backus-Naur  Form  (BNF) . 

Therefore,  step  one  was  conversion  of  EBNF  to  BNF  and  step  two 

was  actually   executing  the  resulting  BNF  grammar  using  YACC 

and  LEX  . 
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The  most  significant  difference  between  the  EBNF  and 
BNF  forms  (other  than  the  fact  that  EBNF  is  far  more  con- 
venient for  human  reading  of  a  grammar)  is  that  two  sets  of 
metasymbols  must  be  removed  from  the  EBNF  grammar  to 
produce  an  equivalent  BNF  grammar.   These  are  the  square 
brackets  [...]  meaning  zero  or  one  occurences,  and  the 
brackets  {...}  meaning  zero  or  more  repetitions;  also, 
several  symbols  must  be  replaced  in  the  EBNF  grammar  to 
make  the  productions  acceptable  to  YACC .   The  replacement 
operator,  double-colon-equal  (::=),  must  be  colon  (:).   All 
trivial  terminals  (parentheses,  semicolons,  commas,  etc.) 
must  be  enclosed  in  single  quotes.   All  other  nonterminals 
must  be  explicitly  indicated  to  YACC  and,  finally,  the 
head  symbol  production  rule  must  be  the  top  rule. 

The  symbol  replacement,  explicit  nonterminals  and  head 
symbol  rule  placement  must  all  be  accomplished  manually. 
The  brackets  mentioned  previously  are  automatically  removed 
via  a  conversion  process  which  yields  new  production  rules 
with  new  nonterminals.   These  new  nonterminals  are  formed 
by  concatenating  the  original  nonterminals  with  prefixes 
such  as  "fst."  and  "opt."  [Ref.  8].   The  entire  conversion 
process,  along  with  the  details  of  executing  the  resulting 
BNF  grammar  on  YACC  are  presented  in  [Ref.  8] . 

Once  the  complete  Ada  syntax  listed  in  [Ref.  1]  was 
modified  to  the  proper  BNF  form,  the  grammar  was  examined 
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in  detail  for  errors.   Two  errors  were  found  in  Appendix  E 

of  the  Preliminary  Ada  Reference  Manual  [Ref .  1] .   First, 

the  token  "characters-literal"  was  used  in  the  production  rule: 

enumerations-literal  :  :=  identifier   characters-literal. 

"Characters-literal"  does  not  appear  on  the  left  hand  side 

of  any  production  and  was,  therefore,  changed  to 

"characters-string".   Secondly,  in  the  "accepts-statement" 

rule,  in  the  nonterminal  "entrys-name"  ,  the  word  "entry" 

should  have  appeared  in  italics  indicating  it  was  simply 

a  syntactic  modifier  and  not  part  of  the  token  "name". 

After  these  errors  were  corrected,  the  complete  Ada  grammar 

in  appropriate  BNF  form  acceptable  to  YACC  was  executed. 

The  input  to  YACC  did  not  initially  include  any  lexical 

analyzer  or  action  code. 

The  sheer  length  of  the  resulting  BNF  form  of  the  Ada 

grammar  caused  a  memory  overload  on  the  PDP-11  and  YACC 

could  not  produce  a  complete  parse  table.   This  problem  was 

solved  by  manually  producing  a  list  of  every  nonterminal 

in  the  full  Ada  grammar  and  sorting  the  list  according  to 

length  (some  nonterminals  were  embedded  within  others) . 

Using  the  UNIX  line  editor,  each  nonterminal  was  then  replaced 

by  two  letter  sequences,  i.e.,  aa,  ab,  ac ,  ...   The  BNF 

grammar  thus  produced  was  acceptable  to  YACC  and  required  far 

less  memory  space.   YACC  then  produced  a  complete  parse  table 

for  the  abbreviated  version  of  the  full  Ada  grammar  in  proper 

BNF  form. 
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The  resulting  parse  table  was  riddled  with  shift/reduce 
and  reduce/reduce  conflicts  ( almost  five  hundred  total  con- 
flicts) .   After  verification  that  the  grammar  was  an  exact 
duplicate  of  the  syntax  summary  presented  in  the  "Preliminary 
Ada  Reference  Manual"  [Ref .  1] ,  with  the  exeption  of  the  two 
minor  errors  discussed  previously,  review  of  this  attempted 
parsing  of  the  grammar  verified  that  the  Ada  language  as 
defined  in  the  Preliminary  Manual  was  not  LALR(l).   With 
the  exception  of  a  final  execution  of  the  full  Ada  grammar 
through  YACC  incorporating  the  changes  made  to  a  subset  of 
the  grammar  (discussed  in  Section  Seven) ,  this  completed  the 
work  on  the  full  Ada  grammar. 
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III.   UNIX  TOOLS 

A.   PREFACE 

This  section  of  the  thesis  is  intended  to  familiarize 
the  reader  with  the  various  language  development  tools  avail- 
able under  the  UNIX  Operating  System  and  to  supplement  avail- 
able documentation  that  often  glosses  over  the  intricacies 
of  language  development  using  UNIX.   This  section  will  also 
provide  specific  guidance  to  follow-on  thesis  projects  that 
use  UNIX  for  the  purposes  of  automatic  compiler  generation. 

The  compiler  process  of  taking  an  input  program  written 
in  a  source  language  and  producing  as  output  an  equivalent 
program  in  a  target  language  is  commonly  subdivided  into 
five  distinct  phases:   lexical  analyis  (scanning),  syntax 
analyzing  (parsing),  semantic  analysis,  code  optimization 
and  code  generation.   The  tools  available  under  UNIX  con- 
centrate on  the  automation  of  only  the  scanning  and  parsing 
phases  of  compilation.   Automation  of  the  remaining  phases 
has  yet  to  become  a  reality. 

Although  an  overview  of  LEX  [Ref .  7]  and  YACC  [Ref .  5] 
was  presented  in  Section  Two,  it  was  slanted  towards  a 
description  of  these  UNIX  tools  rather  than  an  explanation 
of  how  they  are  specifically  used  to  build  a  compiler.   This 
section  provides  detailed  procedures  for  starting  with  the 
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given  syntax  of  a  strong  subset  of  Ada  (Ada/MCS)  and  auto- 
matically generating  a  lexical  analyzer  and  parse  tables. 

B.   SPECIFICATIONS  FOR  USING  YACC 

Ada/MCS  is  in  Extended  Backus-Naur-Form  (EBNF) .   As 
previously  mentioned,  EBNF  is  very  convenient  for  human 
description  of  a  grammar  but  is  not  acceptable  to  the  YACC 
system.   Therefore,  the  conversion  program  [Ref.  8]  intro- 
duced in  Section  Two,  which  is  stored  in  the  Naval  Post- 
graduate School  Computer  Sciences  Laboratory  under  the 
name  "ebnf tobnf " ,  must  be  used  to  convert  the  subset  in 
EBNF  to  BNF.   The  program  "ebnf tobnf"  is  a  YACC  program 
input  and  must  be  processed  with  the  command: 

%  yacc  ebnftobnf 

The  percentage  symbol  is  the  UNIX  prompt  symbol.   The  operator 
is  expected  to  enter  an  operating  system  command.   The  execu- 
tion of  the  above  command  produces  a  file  called  "y.tab.c" 
that  is  written  in  the  programming  language  C  [Ref.  9]. 
This  C  program  must  be  compiled  with  the  YACC  library  by 
using  the  following  operating  system  level  command: 

%  cc  y.tab.c  -ly 

The  output  of  this  compilation  is  the  desired  EBNF  to  BNF 
conversion  program  and  is  called  "a. out" .   It  is  recommended 
that  "a. out"  be  changed  to  a  different  name  to  remind  the 
user  that  it  is  the  EBNF  to  BNF  conversion  program.   The 
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conversion  program  object  code  file  used  throughout  this 
thesis  is  called  "ebnf.conv".   The  preceding  steps  to 
arrive  at  a  conversion  program  must  only  be  accomplished 
once.    After  "ebnf.conv"  is  formed  by  the  steps  out- 
lined above,  it  may  be  used  to  convert  any  EBNF  grammar  to 
BNF,  once  the  symbols  referred  to  in  Section  Two  (double- 
colon-equals  and  trivial  terminals)  have  been  properly 
replaced  or  designated. 

After  forming  the  "ebnf.conv"  program,  Ada/MCS 
was  converted  to  BNF  form  using  the  following  UNIX 
operating  system  command: 

%  ebnf.conv  <ada.ebnf .sub  >ada.bnf.sub 

The  "<"  symbol  means  use  the  given  file  name  ( "ada .ebnf . sub") 
for  input  and  the  ">"  designates  that  the  output  file  be 
called  "ada.bnf .sub" . 

After  "ada.bnf . sub"  has  been  created,  several  steps 
must  be  taken  before  executing  the  BNF  form  of  the  subset 
with  YACC.   Using  the  UNIX  line  editor  ("ed  ada .bnf . sub" ) , 
the  command: 

>  g/+$/d 

was  used  to  remove  all  blank  lines  from  the  file.   The  ">" 
character  is  the  UNIX  line  editor  prompt  and  is  not  entered 
by  the  user.   This  decreased  the  size  of  the  file  and  was 
a  preliminary  step  in  matching  up  the  line  numbers  of  the 
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BNF  grammar  with  the  referenced  reduction  numbers  from  the 
output  of  YACC. 

Throughout  the  Ada  grammar,  the  underscore  was  used 
extensively  to  more  explicitly  describe  names  (as  in 
array_type_def inition) .   Since  the  terminals  at  the  Naval 
Postgraduate  School  are  not  equipped  with  the  underscore 
character,  it  was  replaced  with  the  character  "-<-".   YACC 
uses  "■«-"  to  indicate  the  position  of  the  parsing  process 
(which  token  is  currently  being  analyzed)  so  it  was  decided 
to  change  this  character,  to  eliminate  confusion,  with  the 
line  editor  command: 

>  g/Ws//\$g 

The  "$"  character  was  not  used  for  the  underscore  in  the 
original  EBNF  form  of  the  grammar  since  the  ebnf  to  bnf 
conversion  program  expects  "__"  or  "-*-"  as  name  separators 
for  its  input,  and  will  not  accept  a  " $".   Since  all  punc- 
tuation must  be  enclosed  in  single  quotes,  a  problem 
occurred  when  the  single  quote  in  the  production: 

predef ined-<-attribute  ::=  name  '  identifier 

had  to  be  enclosed  in  a  single  quotes.   The  resulting  form 
in  the  EBNF  subset  became: 

predef  ined«-attri  :  name  '  '  '  '  id 

This  was  converted  to: 

predef inech-attri  :  name  ' '  ' '  id 
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in  the  BNF  form.   In  using  YACC,  as  in  C,  the  backslash  ("\") 
is  an  escape  character  within  the  literals  and  therefore  the 
line  editor  command: 

>  s/*  '  '  V'NS'  '/ 

must  be  issued  to  change  the  line  that  "name  * ' ' '  id" 
appeared  in  to  "name  'V '  id". 

The  final  change  to  "ada .bnf . sub"  while  in  the  line 
editor  was  to  ensure  that  the  head  production  appeared  as 
the  first  production  in  the  BNF  form  of  the  subset.   This 
was  accomplished  by  using  the  line  editor  move  command  ("m") 
to  move  the  appropriate  lines  to  the  start  of  the  grammar. 

After  completion  of  the  above  steps,  "ada .bnf .sub"  was 
in  an  acceptable  form  for  YACC,  but  several  steps  were  still 
required  to  actually  use  YACC.   The  next  step  in  the  process 
was  to  ensure  the  line  numbers  for  each  production  in  the 
BNF  grammar  corresponded  to  the  reduction  numbers  in  the 
parse  tables  in  "y. output",  the  output  file  obtained  from 
a  proper  execution  of  YACC.   This  was  most  efficiently 
accomplished  by  switching  UNIX  line  editors  to  vi  [Ref.  6  ]. 
Vi  (visual)  is  a  display  oriented  interactive  text  editor 
that  was  best  suited  to  combine  lines  in  productions  that 
did  not  have  a  null  (empty)  option.   The  BNF  version  of  a 
grammar  that  is  produced  via  the  conversion  program  dis- 
cussed above  left  a  blank  line  following  every  production, 
whether  it  had  a  null  option  or  not.   The  Vi  command  "J" 
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was  used  to  close-up  the  first  options  of  every  production 
that  did  not  have  a  null  option,  so  that  every  production 
option  (including  null)  would  have  a  line  number  that  cor- 
responded to  the  reduction  numbers  in  each  state  of  the 
parse  tables  of  "y. output". 

The  whole  purpose  of  the  above  procedures  was  to  pro- 
duce a  set  of  production  rules  acceptable  to  YACC,  and  thus 
be  able  to  build  a  compiler  that  can  process  a  program  in 
Ada  to  produce  either  a  "yes"  or  "no"  answer  as  to  the 
program's  syntactic  correctness  or  to  compile  it  to  some 
target  language.   To  accomplish  this  goal  the  BNF  grammar 
must  be  put  into  a  UNIX  file  that  fits  the  YACC  input 
format: 

token  list 

9.  9. 
"3  ■& 

BNF  rules 

g.  a. 

programs 

The  token  list  was  entered  into  a  file  called  "ada. tokens" , 
and  a  small  file  was  created  called  "ada. includelex"  which 
consisted  of  two  lines 


#  include  "lex.yy.c"  (the  output  of  Lex  -, 

discussed  later) . 


Thus,  the  operating  system  level  command: 
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%  cat  ada. tokens  ada.bnf.sub  ada . includelex>ada . temp 

concatenates  the  required  files  into  a  file  called  "ada. temp" 
which  can  be  processed  by  YACC  using  the  operating  system 
level  command: 

%  yacc  -v  ada . temp 

The  "-v"  option  produces  a  verbose  output  file  called 
"y. output"  which  is  a  complete  parse  table  listing.   Also 
produced  by  this  command  is  a  file  called  "y.tab.c"  which 
is  a  compilable  C  source  program.   If  YACC  is  executed 
without  the  verbose  option,  no  "y. output"  is  created. 

C  program  statements  for  processing  the  grammar  into 
a  target  language  as  each  production  is  recognized  can  be 
mixed  into  the  BNF  rules  using  the  "  =  {...}"  format  to 
enclose  each  action.   For  example: 

decl  :  obj$decl 

=  {  printfC  I  decl  \n")  ;  } 
I  type$decl 

=  {  printfC  I  decl  \n")  ;    }  ; 

These  action  statements  were  not  added  to  the  grammar  until 
after  the  BNF  rules  themselves  were  determined  to  be 
LALR(l)  (no  parsing  errors) .   For  this  thesis,  the  actions 
that  have  been  added  to  the  grammar  only  output  the  par- 
sing actions  as  they  are  accomplished.   In  follow-on  theses 
these  actions  can  be  changed  to  code  generation  actions. 
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Following  the  creation  of  a  "y. output"  file,  the  UNIX 
operating  system  command  move  ("mv")  was  used  to  change 
the  file  name  as  each  execution  of  YACC  will  produce  a 
new  version  of  "y. output".   At  this  point,  several  pages 
of  output  were  saved  by  editing  the  new  "y. output"  and 
using  the  line  editor  command: 

>  g/+$/d 

to  delete  all  blank  lines. 

The  complete  process  described  above  to  make  changes  in 
an  EBNF  grammar  and  then  follow  these  changes  through  to 
a  final  parse  table  listing  was  used  several  times  to 
finally  ensure  that  the  Ada  subset  (Ada/MCS)  was  a  LALR(l) 
grammar.   The  details  of  this  procedure  are  discussed  fully 
in  Section  Five. 

C.   SPECIFICATIONS  FOR  USING  LEX 

The  YACC  program  output  "y.tab.c"  makes  a  subroutine 
call  to  "yylexO".   This  call  is  a  request  for  input  tokens 
from  a  scanning  routine.   This  scanner  routine  is  produced 
by  the  LEX  program.   As  described  in  Section  Two  the  LEX 
program  inputs  are  regular  expressions  and  C  language 
action  statements.   Appendix  A  is  a  listing  of  "ada.lex", 
the  input  to  the  LEX  program  for  Ada/MCS . 

The  general  format  of  the  LEX  input  is : 

[definitions] 
%% 
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[rules] 

%% 

[user  subroutines] 

In  the  definitions  section  of  "ada.lex"  are  the  regular 
expressions  in  the  format  of: 

name    space    regular  expression 

For  example: 

1       [a-zA-Z] 

d       [0-9] 

c       (    {1}     I    {d}    ) 

defines  "1"  (for  letter)  as  a  character  from  a-z  or  A-Z  , 
"d"  (for  digit)  as  a  character  0-9,  and  "c"  (for  character) 
as  a  leter  or  a  digit. 

The  specific  meanings  of  all  the  special  characters 
used  to  form  the  regular  expression  are  given  in  the  LEX 
manual  [Ref .  7 ]  . 

Also  in  the  definitions  section  are  changes  to  the 
internal  array  sizes  for  the  LEX  program  that  override  the 
default  conditions  set  by  the  original  program.   For  the 
Ada  language  it  was  necessary  to  change  the  array  sizes. 

The  rules  section  is  in  the  format: 

lexical  definition    space    C  action  statement 
Any  reserved  word  can  be  returned  by  the  LEX  scanning  rou- 
tines as  a  separate  token  value  by  using  the  word  as  a 
lexical  definition,  instead  of  returning  every  word  as  an 
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identifier.   This  saves  the  compiler  writer  from  checking 
each  identifier  with  a  reserved  word  table  in  the  parser 
section  of  the  compiler  and  allows  this  evaluation  to  be 
completed  in  the  scanner. 

Rules  are  included  in  this  section  for  eliminating 
blanks,  tabs,  and  new  lines  "[\t\u]",  and  eliminating 
comments  "\-\- [  $\n]*".   These  rules  do  not  return  any 
values  to  the  parser.   All  other  rules  return  a  token 
value  via  the  "return  (  ) ; "  C  statement. 

The  single  special  characters  (i.e.  =)  could  have  been 
left  out  of  the  rules  sections  and  would  have  been  given 
default  values.   A  decision  was  made  to  supply  token  values 
to  these  characters  for  easier  verification  of  the  correct- 
ness of  the  tokens  returned  to  the  parser  by  this  scanner. 

The  scanner  program  produced  by  LEX  may  be  run  as  a 
scanner  only  when  a  "main  ()"  routine  is  included  in  the 
user  subroutines.   This  was  done  as  a  stand  alone  test  of 
the  scanner  (see  Section  Six  for  results) .   The  separate 
compilation  is  done  with  the  operating  system  command 
sequence: 

%  lex  ada.lex 

%  cc  lex.yy.c  -11  -IS 

The  first  command  executes  the  LEX  program  with 
"ada.lex"  as  the  input  file,  and  produces  an  output  file 
"lex.yy.c"  which  is  a  C  compilable  file. 


26 


The  last  command  compiles  "lex.yy.c"  with  the  LEX 
library  routines  to  form  a  C  object  program  of  the  scanner. 
The  operating  system  command: 

%  a. out  <ada.prog  >output 

executes  the  scanner  thus  produced,  with  an  Ada  language 

test  program,  and  outputs  a  list  of  the  tokens  parsed. 

This  command  may  be  repeated  for  any  number  of  test  programs 

The  user  subroutine  section  is  not  necessary  for  the 
scanner  to  interface  with  the  parser  produced  by  the  YACC 
program.   The  "mainO"  subroutine  in  this  section  is  there- 
fore commented  out  in  the  C  format:   "/*  ...  */",  before 
the  parser  and  scanner  are  combined. 

The  parser  produced  by  YACC  and  the  scanner  produced 
by  LEX  may  be  combined  by  the  following  operating  system 
command  sequence: 

%  lex  ada.lex 

%  yacc  ada . temp 

%  cc  y.tab.c  -ly  -11  -IS 

%  mv  a. out  ac 

The  first  command  is  the  same  as  executing  the  LEX 
program  for  a  separate  compiler.  It  used  "ada.lex"  as 
input  and  produces  "lex.yy.c". 

The  second  command  executes  YACC  with  "ada. temp"  as 
input  and  produces  "y.tab.c"  as  output.   Again,  the  "-v" 
for  a  verbose  output  is  optional. 
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The  third  command  compiles  "y.tab.c"  (which  contains 
* include  "lex.yy.c")  along  with  the  YACC ,  LEX  and  UNIX 
operating  system  libraries.   It  should  be  noted  that  in 
order  for  "y.tab.c"  to  be  compiled  properly  it  had  to  be 
slightly  modified.   Since  each  grammar  production  became 
part  of  a  huge  "switch"  statement  in  the  C  language,  the 
length  of  the  grammar  exceeded  the  option  limit  (128)  in 
the  "switch"  statement.   The  entire  "switch"  was  simply 
divided  into  four  switch  statements  of  equal  length  and 
combined  using  the  "if  then  else"  construct.   The  compila- 
tion of  "y.tab.c"  produces  the  compiler  object  program 
"a. out"  which  in  the  last  command  is  renamed  "ac"  (for 
Ada  compiler) . 

The  operating  system  command: 

%  ac  <ada.prog  >output 

executes  the  compiler  with  an  Ada  language  test  program. 

This  thesis  project  concludes  with  a  verification  of 
the  combined  actions  of  the  parser  and  scanner  and  the  out- 
put of  this  last  command  is  a  trace  of  the  scanning  and 
parsing  actions  (see  Section  Six  for  results) . 

All  of  the  output  produced  by  "ac"  is  preliminary 
information  for  verification  purposes  and  can  easily  be 
deleted  by  eliminating  all  the  "printf"  C  commands  in  the 
"ada.lex"  and  "ada.bnf .sub"  files. 
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IV.   THE  CORNELL  SUBSET  OF  ADA 

A.   ADA/CS  (CORNELL  SUBSET) 

The  intention  of  this  thesis  was  to  begin  the  process 
of  building  a  compiler  starting  with  a  strong  subset  of 
Ada  and  allowing  additional  capabilities  and  features  of 
the  language  to  be  added  to  this  basic  building  block.   This 
approach  was  taken  due  to  time  constraints  and  the  size 
of  the  Ada  language. 

In  November  of  1979  the  Department  of  Computer  Science 
at  Cornell  University  issued  Technical  Report  TR79-395, 
"Ada/CS  —  An  Instructional  Subset  of  the  Programming 
Language  Ada"  [Ref .  4  ]  which  was  used  as  the  starting  point 
for  the  language  syntax  for  a  machine  generated  front  end 
compiler  currently  under  production. 

The  designers  of  Ada  were  faced  with  clear  injuctions 
against  any  definitions  of  subsets  of  the  complete  Ada 
programming  language.   Those  restrictions  were  to  ensure 
standardization  of  the  language  and  perhaps  "to  pressure 
the  designers  to  be  frugal  in  their  proposals  by  denying 

them  the  escape  that  certain  exotic  features  would  be  ignored 

4 
in  practical  subsets." 


4 
Archer,  J.,  "Ada/CS  —  An  Instructional  Subset  of  the 

Programming  Language  Ada",  Technical  Report  TR79-395, 

Computer  Science  Department,  Cornell  University. 
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When  the  design  phase  of  Ada  was  completed,  the 
originators  of  the  Cornell  Subset  of  Ada  saw  no  reason 
to  continue  the  restrictions  against  defining  a  subset  of 
Ada,  and  Viewed  its  development  as  a  necessary  instructional 
tool  that  would  allow  programmers  the  freedom  to  not  use 
certain  language  features  of  Ada.   Another  concern  of  the 
subset  writers  was  that  every  programming  language  that  is 
generally  accepted  as  viable  (and  DoD  assures  us  that  Ada 
will  be  accepted)  is  subjected  to  subsetting.   Thus,  to 
avoid  a  myriad  of  incompatible  subsets,  the  authors  of 
Ada/CS  formulated  their  subset  as  the  basis  for  a  small  number 
of  precisely  defined  standard  subsets.   The  intent  of  Ada/CS 
was  strictly  for  introductory-level  programming  instruction 
and  the  authors  felt  a  strong  need  to  overcome  the  mostly 
political  use  of  FORTRAN  for  basic  instructional  purposes. 

The  advantages  of  a  formal  subset  of  Ada  are  significant; 
especially  in  relation  to  compilers.   Subset  compilers  are 
easier  and  less  expensive  to  develop,  faster  in  operation, 
and  executable  on  smaller  systems.   In  addition,  a  compiler 
can  provide  must  more  effective  diagnostics  if  it  knows  that 
certain  language  features  will  not  be  used. 

B.   ADA/CS  ERRORS 

Ada/CS  was  defined  by  removing  some  constructs  entirely 
from  the  full  language  and  limiting  some  that  remained. 
Regardless,  the  syntax  summary  presented  in  Ada/CS  was 
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supposedly  a  proper  subset  of  the  Ada  syntax  presented  in 
"The  Preliminary  Ada  Reference  Manual"  and  all  productions 
of  the  subset  were  purportedly  created  by  simply  removing 
phrases  from  the  reference  version.   Although  this  was 
generally  the  case,  the  following  errors  were  noted  and 
corrected  in  the  Ada/CS  specification. 

In  the  "basic«-loop"  production,  a  semi-colon  did  not 
follow  the  optional  identifier  following  "END  LOOP".   There 
were  two  cases  where  the  zero  or  one  symbol  [ . . . ]  had  been 
replaced  by  the  zero  or  more  symbol {...}  in  the  subset. 
These  two  cases  were  in  the  "relation"  production,  around 
"relational^operator  simpler-expression"  and  in  the  "body" 
production  around  "visibility  restriction".   The  last  error 
was  another  case  of  losing  the  italic  designation  of  a 
syntactic  modifier  for  the  nonterminal  "name"  (there  was  a 
different  italics  error  discussed  in  Section  Two  that  was 
in  the  full  Ada  grammar).   In  the  production  for  "type«-mark" , 
in  the  nonterminal  "type^-name" ,  the  work  "type"  should  have 
appeared  in  italics  to  demonstrate  its  syntactic  modifier 
status.   The  corrected  version  of  the  above  errors  are  in 
Appendix  B  under  "Ada/CS".   Note  that  italicized  words  are 
simply  eliminated  in  production  rules. 

Although  the  above  errors  were  a  bit  tedious  to 
discover,  they  were  easily  corrected  and  not  considered 
significant.   One  major  shortcoming  of  Ada/CS  which  was  very 
significant  from  a  compiler  writer's  point  of  view  was  the 
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absence  of  a  head  production  in  the  grammar.   A  head  production 
is  defined  as  the  one  grammar  rule  which  all  other  grammar 
rules  will  eventually  reduce  to.   The  head  production  rule 
when  recognized  by  the  parser,  signals  that  the  end  of  the 
input  character  stream  has  been  reached  and  the  compilation 
is  finished.   This  problem  resulted  from  the  deletion  of  the 
production  "compilation  :  :=  {compilation-s-unit } "  from  the 
subset.   Whether  or  not  the  authors  of  Ada/CS  intended  to 
eliminate  separate  compilation  of  individual  units  from 
the  subset  is  not  clear.   It  can  be  inferred  by  the  omission 
of  the  "compilation"  production  that  this  capability  was  not 
desired  in  Ada/CS.   But,  by  this  omission,  the  head  production 
was  also  eliminated.   The  subset  was  therefore  expanded  to 
include  the  "compilation"  start  symbol  and  associated 
productions  from  the  Ada  reference  manual. 

C.   ADA/CS  COMPARED  TO  THE  COMPLETE  ADA  LANGUAGE 

Several  features  of  the  complete  Ada  language  were  omitted 
in  the  CS  subset.   The  main  features  of  the  complete  Ada 
language  were  discussed  in  the  language  summary  portion  of 
Section  Two.   The  major  features  that  were  not  included  in 
the  Cornell  Subset  are  discussed  below. 

The  facilities  for  defining  tasks  and  all  concurrent 
programming  features  have  been  eliminated  in  the  subset. 
Control  over  variable  record  representation  and  access 
variables  has  been  lost.   The  name  overloading  or  redefinition 
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capability  has  been  discarded  along  with  user-defined  generic 
procedures.   The  last  feature  omitted  was  the  exception 
mechanism. 

Along  with  these  major  construct  omissions,  further 
compression  of  the  full  Ada  language  was  accomplished  by 
attaching  semantic  and  syntactic  restrictions  to  the  con- 
structs included  in  Ada/CS.   The  principal  restrictions 
were  imposed  on  expressions,  subprograms,  declarations, 
case  statements  and  goto  statements.   Expressions  were 
modified  by  not  allowing  array  or  slice  expressions  and 
discarding  exponentiation  from  the  subset.   The  subprogram 
construct  was  modified  considerably  to  greatly  simplify 
the  language.   Subprograms  cannot  be  used  to  redefine 
operators.   Also,  actual  paramenters  corresponding  to  out 
and  in  out  formal  parameters  must  represent  locations  which 
can  be  legally  assigned  values  of  the  appropriate  type. 
Formal  parameter  array  subscript  range  values  cannot  be 
specified.   Procedure  side-effects  are  not  allowed  in 
expressions;  only  function  subprograms  can  return  values. 
The  last  subprogram  restriction  was  that  keyword  parameter 
mechanism  were  not  allowed  in  Ada/CS.   Declarations  were 
limited  so  that  no  anonymous  types  were  allowed.   Case 
statements  were  slightly  modified  by  demanding  that  at  least 
two  choices  be  specified  and  requiring  a  "when  others" 
clause  if  all  legal  cases  are  not  syntactically  guaranteed. 
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The  last  restriction  was  allowing  the  goto  statement  to 
transfer  control  forward  only.   The  Ada/CS  Technical  Report 
[Ref.  4]  provides  further  details  of  each  construct 
restriction. 

D.   ABBREVIATION  OF  THE  SUBSET 

Section  Two  discussed  the  difficulties  encountered  with 
the  full  Ada  grammar,  in  EBNF  form,  in  relation  to  available 
memory  space  on  the  PDP-11.   Since  the  final  subset  used 
in  this  thesis  consisted  of  approximately  half  the  productions 
of  the  complete  Ada  language,  the  somewhat  drastic  abbreviation 
mechanism  of  converting  every  nonterminal  to  a  two  letter 
sequence  was  not  necessary  in  the  subset.   The  subset 
productions  were  therefore  abbreviated  in  a  logical  manner 
and  the  resulting  BNF  form  is  easily  understood.   Appendix  B 
lists  the  modified  Cornell  subset  (Ada/MCS)  along  with  a 
listing  of  "ada. sub. terms"  that  may  be  used  to  clarify  any 
abbreviation  that  might  be  ambiguous  to  the  reader. 

The  details  of  Ada/MCS  are  discussed  in  the  next  section, 
along  with  a  complete  explanation  of  how  Ada/CS  was  modified 
to  be  LALR(l) . 
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V.   THE  MODIFIED  CORNELL  SUBSET  (ADA/MCS) 

A.  PREFACE 

As  stated  in  Section  Three,  YACC  requires  its  input 
grammer  to  be  LALR(l) .   The  original  Cornell  Subset  (Ada/CS) 
was  not  LALR(l)  and  when  executed  with  YACC  resulted  in  over 
two-hundred  reduce/reduce  and  shift/reduce  conflicts. 
Reference  [  3 ]  provides  a  complete  explanation  of  these  con- 
flicts.  In  the  absence  of  any  user  directives  to  the  con- 
trary, YACC  invokes  two  disambiguating  rules  to  deal  with 
conflicts.   In  a  shift/reduce  conflict,  the  default  is  to 
do  the  shift.   In  a  reduce/reduce  conclict,  the  default  is 
to  reduce  by  the  earlier  grammer  rule  in  the  input  sequence. 
Therefore,  although  it  is  possible  for  YACC  to  produce  a 
parser  even  in  the  presence  of  some  conflicts,  it  was  one  of 
the  prime  goals  of  this  thesis  to  rewrite  the  Cornell  Sub- 
set of  Ada  so  that  it  was  LALR(l)  and  therefore  the  result- 
ing parse  table  would  be  free  of  all  conflicts. 

B.  CHANGING  ADA/CS  TO  ADA/MCS 

Following  the  correction  of  the  grammer  errors  discussed 
in  Section  Three,  various  changes  to  the  BNF  form  of  the 
Ada  subset  were  made.   Each  conflict  in  the  initial  parse 
table  for  Ada/CS  was  carefully  examined  to  discover  the 
source  of  the  conflict  and  a  revision  of  the  appropriate 
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production (s)  was  attempted  so  that  the  language  would  not 
be  restricted  by  the  revision.   This  was  not  possible  in 
all  cases  and  some  revisions  caused  minor  limitations  to 
the  subset  grammar.   Several  conflicts  in  the  parser  auto- 
matically generated  by  YACC  could  only  be  eliminated  by 
restricting  the  Ada  grammar. 

This  section  details  each  change  to  the  Ada/CS  pro- 
duction rules  that  was  made  in  order  to  change  it  to  LALR(l) . 
Unless  specifically  stated,  the  change  was  not  restrictive 
to  the  grammar . 

The  first  change  was  a  separation  of  the  sections  of 
Ada/CS  that  rightfully  belonged  in  the  lexical  analyzer. 
Reference  [  4]  contained  section  2.3  through  2.5  that  defined 
identifiers,  numbers  and  the  character  string  which  were  in 
turn  deleted  from  Ada/MCS  and  defined  more  appropriately  in 
"ada.lex"  (see  Appendix  A). 

After  adding  the  head  production  "compilations-unit"  and 
its  associated  productions  as  detailed  in  Section  Three,  it 
was  determined  that  several  reduce/reduce  conflicts  were 
being  caused  by  Ada/CS  not  distinguishing  whether  an  "id" 
was  meant  to  be  part  of  an  "enum-«-lit"  or  part  of  a  more 
generalized  expression  or  part  of  "name".   The  following 
productions  illustrate  this  confusion: 

enuiTH-lit  :  id  I  char^-string 

name  :  id  I  indexed^-comp  I  selected-^-comp  I  predef ined^-attr 


36 


lit  :  num  |  enum-<-lit   char^-string 
pri  :  lit  I  var  |  subprog-<-call  I  aggr 
I  qualif ied^-expr  |  (expr) 

The  production: 

lit  :  num  |  enum+-lit  I  char^string 

was  allowing  "id"  to  come  through  the  literal  production 
above  into  the  "primary",  "factor",  "term",  "expression" 
chain  which  reduced  "id"  into  expressions  without  going 
through  the  "name"  production.   The  conflict  thus  created 
meant  that  an  "id"  which  was  part  of  a  "enuirH-lit"  was  reduced 
into  one  of  the  "expression"  structures.   For  example,  in 
the  "enum^type^-defn"  : 

TYPE  light  IS  (red,  amber,  green) ; 

The  identifier  "red"  may  first  be  reduced  to  a  name,  where 
in  fact  it  is  strictly  an  enumeration  literal.   This  some- 
what intricate  problem  was  corrected  by  simply  eliminating 
"enunH-lit"  from  the  "lit"  production,  resulting  in: 
literal  :  num  I  char^-string 
The  productions: 

pri  :  lit  I  aggr  I  var  I  subprog«-call 
I  qualif  ied-«-expr  !  ■  (  *  expr  ■  )  ' 
var  :  name  opt .«-  .disc-grange  ,-*■ . 
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opt  . -<-.disc-*-range  .-«- .  :  e 

I  '  (  '  disc-grange  '  )  ' 
subprog  call  :  name  opt .«-  .para-*-assoc  .  .  1st  .-*-  .para^assoc  .  .<- 

I  '('  para-<-assoc  f  st.-*-  .para«-assoc  ' )  ' 

led  to  confusion  as  to  which  optional  null  production  was 
being  parsed  when  null  options  (e)  were  encountered.  For 
example,  the  subprogram  call: 

prints-report; 

with  no  parameters  could  be  interpreted  by  the  parser  as 
a  variable. 

The  solution  was  to  eliminate  the  "opt.-*-  .disc^-range" 
and  the  "opt  .-*■  .  para«-assoc  .  .  1st  .-*-  .  para-*-assoc  .  .-*- .  "  in  the 
above  productions  for  "var"  and  "subprog-«-call"  so  that 
these  productions  would  be  parsed  only  if  they  began  with 
"  name  ' ( '  "  and  if  there  was  no  trailing  parenthesis  the 
parsing  table  would  be  left  with  just  a  "name"  which  was 
added  to  the  primary  production  above  to  yield  the  follow- 
ing corrected  productions  which  will  parse  the  same  language: 

pri  :  lit  I  aggr  I  var  |  subprog-«-call 

I  qualif  ied-<-expr  I  '  ( '  expr  ' )  '  I  name 
var  :  name  ' . '  ALL 

I  name  '  ( '  disc-<-range  ' )  ' 

subprog-*-call  :  name  '('  para-*-assoc-<-f  ist .-«-  .  para-<-assoc .  ')' 

A  problem  occurred  with  the  "expr"  production  in  that  if 
no  option  followed  a  "rel"  in  the  production: 
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expr  :  rel  fst.AND.rel. 
I  rel  fst.OR.rel. 
I  rel  fst.XOR.rel. 

the  parse  table  did  not  know  which  empty  option  to  parse. 
For  example,  the  program  segment: 

IF  a<b  THEN 
LOOP  . . . 

is  an  example  of  an  expression  consisting  of  only  one  rela- 
tion which  would  lead  to  the  compiler  not  being  able  to 
determine  which  option  of  this  production  is  being  reduced 

The  solution  was  formulated  by  changing  "expr"  to 
encompass  the  logical  operator  functions  in  the  following 
manner : 

expr  :  expr  log-«-op  rel 
I  rel 

At  this  point  in  the  conversation  from  Ada/CS  to  the 
LALR(l)  Ada/MCS,  it  became  apparent  that  changing  the  BNF 
form  of  the  grammar  was  much  more  difficult  than  analyzing 
the  EBNF  form  and  making  changes  to  it.   The  procedure 
therefore  changed  at  this  point  in  the  thesis  to  strictly 
working  with  the  EBNF  grammar. 

Another  conflict  was  caused  by  "expr"  being  a  legal 
case  of  the  "aggr"  production: 

aggr  :  '  (  '  comp-eassoc  {  '  ,  '  compn-assoc  }  ' )  ' 
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comp^-assoc  :  choice  {  ' I '  choice  }  '=>'   expr  ; 
pri  :  lit  |  aggr  |  var  I  subprog-<-call 

I  qualif  ied^-expr  |  '  ( '  expr  * )  '  |  name 

An  example  from  the  language  illustrates  this  point.   The 
expression 

(a<b) 

parses  to  either  an  "aggr"  or  an  "expr"  and  the  real  deter- 
mination of  the  type  of  language  construct  desired  must  be 
accomplished  semantically. 

The  solution  was  to  eliminate  "  ' ( '  expr  ' ) '  "  from  the 
"pri"  production  which  also  contained  "aggr",  and  let 
"  '('  expr  ')'  "  parse  through  "aggr".   The  difference  in 
code  generation  between  an  "expr"  and  an  "aggr"  (an  array 
or  record  value)  must  be  decided  at  the  semantic  level. 

Another  significant  ambiguity  occurred  in  Ada/CS  due 
to  the  fact  that  it  allowed  so  many  productions  to  begin 
with  "simple-«-expr"  .   The  production 

range  :  simple^-expr  '  .  .  '  simple-<-expr 

led  to  the  most  of  the  parsing  conflicts  and  was  therefore 
changed  by  limiting  the  first  "simple-*-expr"  to  an  "id"  or 
a  "lit"  as  follows: 

range  :  range-^id  '  .  .  ■  simple^-expr 
range-<-id  :  id    lit 
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Perhaps  the  major  source  of  parsing  errors  in  Ada/CS 
concerning  the  fact  that  "name  ' ( '  "  could  be  the  start  of 
an  indexed^comp  (array)  ,  a  "var"  (part  of  an  array)  ,  a 
"subprog«-call"  ,  or  a  "qualif  ied^-expr"  .   The  difference 
was  not  recognizable  in  the  compiler  because  all  the  above 
productions  used  the  same  delimiter,  i.e.,  "  (  )  ".   For 
example,  when  a  subprogram  call  has  parameters  as  in 

cos  (x,y) ; 

this  call  is  syntactically  the  same  as  an  array  variable 

an^array  (x, y) ; 

The  solution  to  this  delimiter  situation  was  two-fold. 
The  first  part  was  to  remove  "qualif ied-«-expr"  completely 
from  the  new  grammar  and  to  let  the  semantic  actions  tell 
whether  "  name  (expr)  "  was  a  qualified  expression  or  a 
subprog-<-call .   The  second  phase  of  the  solution  was  to  make 
"  name  '('  "a  general  form  for  a  subprogram,  array  variable 
or  qualified  expression.   This  would  make  it  necessary  for 
the  parser  action  statements  to  differentiate  using  the 
symbol  table  and  generate  errors  where  new  incorrect  pos- 
sibilities could  be  parsed.   This  step  also  allowed  the 
productions  "para-<-assoc"  and  "actual-*- para"  to  be  deleted. 
The  resulting  productions  from  the  above  language  restric- 
tions follow: 

name  :  id  |  subprog^array^-var  I  selected+-comp 
I  predef ined*-attri 
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selected«-comp  :  name  '  .  '  id 

predef  ined-<-attri  :  name  '  '  '  '  id 

var  :  name  ' . '  ALL 

subprog-*-array«-var  :  name  '  (  '  expr  {  '  ,  '  expr  }  ' )  ' 

In  the  productions: 

disc^-range  :  [type«-mark  RANGE]  range 
aggr  :  '  ( '  comp-^-assoc  {  '  , '  comp^-assoc  }  ' )  ' 
compK-assoc  :  [choice  {  'I1  choice  }  **=>']  expr 
choice  :  simple-<-expr   disc-«-range  I  OTHERS 
simple+expr  :  [unary-*-op]  term  {  adding-*-op  term  } 

when  an  "aggr"  was  parsed  through  the  "comp«-assoc"  and 
"choice"  productions,  a  decision  was  faced  whether  to 
parse  to  a  "simple-*- expr"  or  a  "disc-*-range" .   These  pro- 
ductions had  different  optional  beginnings  and  the  parser 
could  not  choose  which  production  it  was  attempting  to 
parse,  as  can  be  seen  in  the  following  example: 

C  :  TABLE  :=  (0. .4  =>  0)  ; 
C  :  TABLE  :=  (5.  .9  =>  1.0)  ; 

where  the  first  numbers  (0  and  5)  are  the  beginnings  of  the 
discrete  range,  but  the  compiler  cannot  distinguish  until 
the  " . . "  is  reached  whether  the  numbers  might  be  the 
beginnings  of  simple  expressions. 

It  was  decided  to  allow  only  one  of  the  two  productions 
to  have  an  optional  beginning;  therefore,  the  language 
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was  restricted  by  eliminating  the  option  of  a  null  pro- 
duction at  the  beginning  of  the  "disc  range"  production: 

disc«-range  :  type-*-mark  RANGE  range 

In  every  instance  that  "AND"  or  "OR"  was  encountered, 
a  conflict  was  generated  when  the  parser  did  not  know 
whether  to  parse  to  "cond"  or  "expr".   The  following  pro- 
ductions illustrate  the  problem  that  a  LALR(l)  parser  had 
parsing  the  grammar  as  written  because  "AND  THEN"  or  "OR 
ELSE"  created  a  necessity  to  look  ahead  two  tokens: 

cond  :  expr  {  AND  THEN  expr  } 

I  expr  {  OR  ELSE  expr  } 
expr  :  expr  log-^-op  rel  I  rel 
log+op  :  AND  I  OR  I  XOR 

Ada/MCS  removed  this  (look  ahead  by  two  tokens)  conflict 
by  changing  the  "cond"  production  so  that  "AND  THEN"  and 
"OR  ELSE"  became  single  tokens: 

cond  :  expr  {  AND. THEN  expr  } 
I  expr  {  OR. ELSE  expr  } 

This  production  in  turn  created  an  ambiguity  since  if 
neither  "AND. THEN"  or  "OR. ELSE"  were  present,  the  parser 
did  not,  again,  know  which  empty  option  to  follow.   The 
empty  options  were  combined  as  follows: 

cond  :  expr  {  cond-*-ext  } 
cond^-ext  :  AND. THEN  expr 
I  OR. ELSE  expr 
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thus  creating  a  "condition  extension"  production,  which 
did  not  change  or  restrict  the  language. 

Another  series  of  conflicts  were  created  by  the  parser's 
attempts  to  decide  whether  the  "choice"  option  was  present 
or  not  and  therefore  distinguishing  whether  "id"  and  "lit" 
were  starting  a  "choice"  or  starting  an  "expr"  in  the 
productions : 

range-«-id  :  id  I  lit 

choice  :  range-«-id  I  disc^range  I  OTHERS 

comp-*-assoc  :  choice  {  '  I  '  choice  }  '=>'  expr 

These  conflicts  were  solved  by  creating  a  restricted 
choice  ("restr-*-choice")  in  the  "comp+-assoc"  production  as 
follows: 

comp^-assoc  :  restr«-choice  {  '  |'  choice  }  '=>'  expr 

I  pri  [{  ' I '  choice  }  '=>'  expr] 
restr-<-choice  :  disc-«-range  I  OTHERS 
choice  :  range«-id  I  restr-<-choice 

thus  restricting  the  grammar  by  eliminating  the  option  of 
allowing  a  "simple«-expr"  to  start  a  "choice".   Note  that 
the  second  option  for  "comp«-assoc"  used  "pri"  instead  of 
"simple«-expr" .   This  further  restricts  Ada/MCS  in  that  a 
unary  operator  must  be  put  in  parentheses  when  used  in  the 
"compH-assoc"  production.   This  restriction  was  a  valid 
trade-off  rather  than  allowing  "comp<-assoc"  to  begin  with 
"simple<-expr"  which  would  have  caused  further  complicated 
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changes  to  Ada/MCS  that  would  considerably  lengthen  the 
EBNF  form  of  the  grammar. 

C.   OBSERVATIONS 

The  preceding  description  of  the  various  changes  made 
to  Ada/CS  in  order  to  modify  the  grammar  to  be  LALR(l) 
are  traditional  examples  of  the  trade-offs  that  language 
implementors  must  face:   restricting  the  grammar  or 
lengthening  the  parse  table.   Since  most  compilers  have 
specific  time  constraints  that  must  be  met,  each  restric- 
tion must  be  evaluated  to  intrinsically  measure  the  time 
saved  by  shortening  the  parse  table  versus  the  intended 
capability  of  the  original  language  grammar. 

Each  modification  that  was  made  to  Ada/CS  was  the  final 
result  of  many  experiments  in  efficiency  and  the  resulting 
Ada/MCS  does  not  lose  much  capability  compared  with  Ada/CS. 
Appendix  B  contains  the  Ada/MCS  grammar  and  Appendix  C  is 
the  conflict-free  parse  table  that  was  automatically 
created  by  YACC  for  Ada/MCS. 
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VI.   TEST  PROGRAMS  AND  RESULTS 

Appendix  D  contains  several  test  programs,  written  in 
Ada/MCS,  that  make  use  of  the  majority  of  the  features 
available  in  the  subset.   The  test  programs  are  not  elaborate 
but  serve  to  illustrate  that  the  automatic  scanner  and 
parser  developed  for  Ada/MCS  functions  properly.   Each  program 
illustrates  different  variations  of  syntactic  constructs  from 
Ada/MCS.   The  output  of  each  compiled  Ada/MCS  program  is  an 
easily  decipherable  scanner-parser  action  trace.   This  trace 
is  provided  in  Appendix  D  for  the  first  four  programs  only  to 
demonstrate  the  format  of  the  scanner-parser  action  trace; 
the  other  syntactic  constructs  tested  are  shown  without  trace 
results. 

Each  test  program  has  two  versions:  a  syntactically  correct 
form  and  an  incorrect  form.   The  format  of  the  scanner-parser 
action  trace  is: 

token  number  (from  ada.lex)     token 

|  reduction 
reduction 

These  reductions  contine  until  another  token  is  needed. 
Another  token  number  from  ada.lex  is  issued  and  the  process 
continues  until  the  head  production  is  reached.   For  example, 
the  program  excerpt  "PROCEDURE  test  IS"  would  have  a 
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scanner-parser  action  trace  as  follows: 


28     PROCEDURE 

opt. vis $ restrict ion. 

opt. SEPARATE 

subprog$nature 

test 

designator 

IS 

opt. formal $part. 

opt . RETURN . type$mark 

subprog$spec 

If  a  syntax  error  occurs,  a  line  is  skipped  in  the 
scanner-parser  actions  trace  and  YACC  issues  the  statement 
"syntax  error".   The  error  recovery  procedure  defined  in 
the  YACC  action  statements  cause  the  parser  to  request  tokens 
from  the  scanner  until  an  end  of  statement  character  ( ; )  is 
received.   The  printer  prints  the  message  "    Parse  error  ", 
and  the  procedure  continues  to  parse  beginning  with  the  next 
statement.   Ada. lex,  along  with  deleting  comments  and 
ignoring  blanks,  tabs,  and  newlines,  also  issues  the 
diagnostic  "Scanner  error  :  unknown  symbol"  in  every  instance 
that  an  unknown  character  is  encountered.   The  character  is 
then  ignored  and  the  parse  continues. 

The  scanner-parse  action  traces  in  Appendix  D  illustrate 
the  above  actions. 
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VII.   CONCLUSIONS 

A.   DOCUMENTATION  INADEQUACIES 

The  original  intention  that  ultimately  led  to  this 
thesis  was  a  full  implementation  of  a  compiler  for  the  pro- 
gramming language  Ada.   As  is  common  with  most  compiler 
writing  projects,  unforeseen  problems  were  encountered; 
specifically,  inadequate  documentation  of  the  UNIX  system 
automatic  compiler  generation  tools  and  ambiguities  in  the 
Ada  language.   These  problems  forced  a  redirection  of  the 
thesis  goals  to  the  task  of  laying  the  groundwork  for  a 
future  implementation  of  Ada  through  the  development  of  the 
first  two  steps  of  the  compiler  process:   the  scanner  and 
the  parser. 

The  documentation  for  YACC  and  LEX  had  no  specific 
errors,  but  several  weaknesses  existed.   The  documentation 
did  not  provide  enough  detailed  explanation  of  LEX  or  YACC 
or  specific  examples  for  a  first-time  user  of  these  tools. 
It  also  did  not  include  any  specific  implementation  details 
concerning  the  Naval  Postgraduate  School  PDP-11/50  system. 
For  example,  the  LEX  documentation  listed  two  distinct 
methods  of  specifying  character  constants:   quotation  marks 
and  backslashes;  however,  on  the  NPS  system  the  only  method 
implemented  was  the  backslash. 
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Section  Three  of  this  thesis  was  an  attempt  to  alleviate 
these  documentation  shortcomings  by  providing  a  detailed 
description  of  the  use  of  these  UNIX  tools  for  the  project 
of  writing  an  Ada  compiler  (or  any  compiler) . 

Another  serious  documentation  deficiency  was  the  inclu- 
sion in  the  UNIX  documentation  of  an  introductory  description 
of  a  program  called  EYACC  (Extended  Yet  Another  Compiler- 
Compiler)  which  purported  to  expand  the  memory  capability  of 
the  YACC  program  that  was  eventually  used  for  this  thesis. 
Due  to  the  size  of  the  Ada  grammar,  EYACC  was  originally 
chosen  for  this  thesis  to  take  advantage  of  its  expanded 
memory  capabilities.   EYACC  was  discarded  at  the  later  stages 
of  the  thesis  because  it  was  discovered  that  it  was  only 
partially  implemented  on  the  NPS  PDP-11/ 50  system.   It  would 
produce  a  parse  table  listing,  but  when  compiled,  the  listing 
would  yield  no  output. 

B.   FUTURE  SYMBOL  TABLE  IMPLEMENTATION 

The  major  objective  of  this  thesis  was  to  verify  the 
possibility  of  a  machine  generated  parser  and  scanner  for 
Ada.   In  the  process  of  revising  the  Ada  grammar  to  form 
an  LALR(l)  grammar  it  was  discovered  that  some  ambiguities 
in  the  language  were  due  to  the  similarity  of  the  syntactic 
constructs  for  different  semantic  actions.   For  example, 
the  array  variable  "  array-«-a  (x,y,  z)  "  is  syntactically  similar 
to  the  subprogram  call  "cos(x,y)".   This  problem  could  be 
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resolved  in  either  of  two  ways:   (1)  modify  the  scanner 
to  use  a  symbol  table  lookup  procedure  and  return  a  token 
value  for  "array^-a"  or  "cos"  that  is  more  specific  than 
an  identifier  (e.g.,  "array+-id"  and  "subprog-^id" )  ,  or  (2) 
make  the  grammar  rule  recognize  the  general  syntactic  form, 
(i.e.,  "identifier  (expression,  expression  ...)")  and  use  a 
symbol  table  lookup  procedure  in  the  action  portion  of  the 
grammar  rule  to  distinguish  between  "array-«-a"  and  "cos". 

Due  to  the  time  constraints  of  this  thesis  it  was  not 
possible  to  implement  a  symbol  table,  consequently  it  was 
decided  to  delay  the  symbol  table  lookup  procedure  as 
explained  in  the  second  alternative  given  above.   This 
allowed  for  the  verification  of  the  scanner-parser  inter- 
face without  use  of  a  symbol  table. 

This  solution  was  decided  upon  for  the  ambiguities 
discovered  between  array  or  record  names  and  subprogram 
names,  and  for  the  ambiguity  between  array  or  record 
parameters  and  variables. 

When  a  symbol  table  is  eventually  incorporated  as  a 
follow-on  to  this  thesis,  it  may  be  desirable  to  use  a 
symbol  table  lookup  procedure  in  the  scanner,  resulting  in 
simpler  semantic  actions. 

C.   INCLUSION  OF  ADA/MCS  IN  THE  FULL  ADA  GRAMMAR 

The  elimination  of  the  shift/reduce  and  reduce/reduce 
errors  in  the  Ada/MCS  subset  discussed  in  Section  Five  made 
it  desirable  to  investigate  the  effect  of  the  Ada/MCS 
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changes  on  the  full  Ada  grammar.   This  investigation  was 
accomplished  by  manually  changing  the  abbreviated  BNF  form 
of  the  full  grammar  and  processing  the  modified  full 
grammar  with  YACC. 

This  process  decreased  the  parsing  errors  from  490 
to  286. 

D.   SUMMARY 

This  thesis  was  written  using  the  "Preliminary  Ada 
Reference  Manual"  as  its  primary  source  of  documentation 
and,  as  has  been  discussed,  it  was  discovered  that  Ada  is 
not  easily  implemented  by  automated  compiler  generation 
tools.   During  the  final  stages  of  this  thesis,  the  pro- 
posed standard  reference  manual  for  Ada  was  acquired  and 
a  review  of  this  document  revealed  that  the  original 
ambiguities  of  the  language  still  exist  in  the  proposed 
final  version  of  Ada. 

One  conclusion  of  this  thesis  is  the  fact  that  a  pro- 
grammer may  use  Ada  to  express  his  ideas  without  ambiguity, 
but  a  reader  may  find  the  same  program  ambiguous.   The 
difficulties  discussed  in  Section  Five  concerning  the 
"  name  (  "  dilemma  very  clearly  substantiate  this  point. 
Variable  names  are  not  easily  distinguishable  by  the 
reader  without  referring  to  the  data  declarations  section. 
It  is  acknowledged  that  the  designers  of  the  Ada  language 
intended  arrays  and  subprogram  calls  to  look  alike,  since 
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it  may  sometimes  be  desirable  to  implement  arrays  as  sub- 
programs (for  example,  sparse  arrays).   However,  it  is  felt 
that  the  readability  problem  created  by  this  intended 
ambiguity  may  eventually  create  maintenance  difficulties 
for  ongoing  software  development  projects. 

Section  Five  provides  a  detailed  analysis  of  the 
changes  that  were  necessary  to  convert  an  existing  subset 
of  Ada  to  a  LALR(l)  grammar.   In  the  development  process 
of  Ada  the  primary  consideration  seems  to  have  been  an 
attempt  to  create  a  language  that  would  impose  a  structured 
programming  environment  upon  the  users,  for  the  enhancement 
of  the  software  engineering  process  of  program  development, 
without  enough  consideration  being  given  to  the  language 
implementors .   Perhaps  the  strongest  conclusion  drawn  from 
this  thesis  is  that  Ada  compilers  may  be  more  costly  and 
take  longer  to  develop  than  anticipated  due  to  these  lan- 
guage ambiguities.   This  could  result  in  delaying  the 
replacement  of  the  current  DOD  tactical  languages  in  use 
with  a  standard  acceptable  Ada  language. 
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APPENDIX  A 

Ada . 1  ex 

This  appendix  is  a  listing  of  the  input  file  to  the 
LEX  program  and  shows  the  reserved  words/  and  regular  ex- 
pressions defining  identifiers*  numbers/  and  character 
st  r  i  ngs • 


1     ta-zA-ZJ 
d     10-91 

c        ({i > : <d>) 

ex     (\<-i  {1  }  !  <d>  ) 

dx        (\*-:<d>) 

i     UdHdx}*) 
idecex   ( < i > \ . { i > <e> ) 
idee    ({i>\.<i>) 
iex     (liKe>) 

b        ( n  >\*(<i  > :  <d> )  +  (\«-i  n  > :  <d> )*) 

e     C\E((\  +  ?{i>)}CWi>))) 

charstr     \"  [\40-\l 76) *\" 
id     UHcx}* 

<i  > ! <b> ! <idec> ! i idecex) J {iex} 


num 

%e 

%P 


600 
2000 
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Jin 

Xa 

Xo 

XX 

ALL 

AND 

ARRAY 

ASSERT 

BEGIN 

BODY 

CASE 

CONSTANT 

ELSE 

ELSIF 

END 

EXIT 

FOR 

FUNCTION 

GOTO 

IF 

IN 

IS 

LOOP 

MOD 


2000 


{print 

{print 

{pr  i  n 

{pri 

{pr  i  n 

{print 

{print 

{pr 

{print 

{pr  i  n 

{print 

{print 

{print 

ipr 

{pri  nt 

{pr i  nt  f 

{pri  nt  f 

{pr i  nt  f 

{print 

{print 


300 


2000 

("1  !  ");ECHO;printf ("  \n" ) ; ret  urn ( 1 ) ; > 
("2  !  ");ECHO,*printf ("  \n" ) ; ret  urn (2 ) ; > 
f("3  !  ");ECHO;printf ("  \nH);return(3);> 
tf("4  !  ");ECHO;printf ("  \n " ) ; ret  urn ( a ) ; > 
f("5  !  ");ECHO,*printf  ("  \n" ) ; ret  urn ( 5 ) ; > 
("6  !  ");ECHO,*printf  ("  \n");return(6);> 
("7  J  H);ECHO;printf ("  \n  "  ) ; ret  urn ( 7 ) ; > 
ntf(M8  !  ");ECHO;printf ("  \nH ) ; ret  urn (8 ) ; > 
("9  !  M);ECHO;printf C"  \nM);return(9);> 
f  ( ••  1  0  !  M);ECHO;printf  ("  \n  "  )  ;  ret  urn  (  1  0  )  ;  > 
(Mll  J  ");ECHO;printf ("  \n" ); return C 1 1 ); > 
(H12  !  M);ECHO;printf ("  \n" ) ; ret  urn (  12 ) ; a 
CI  3  J  M);ECHO;printf ("  \n" ); return ( 13) ; > 
ntfCia  !  ");ECHO;printf  ("  \n"  )  ;  ret  urn  (  1  a  )  ;  > 
("15  !  ")  ?ECHO;printf  ("  \nM  )  ;  ret  urn  (  1  5  )  ,*  > 
M16  !  ");ECHO;printf ("  \n" ) ; ret  urn ( 1 6) ; > 
"17  !  ");ECHO;printf ("  \n" ) ; ret  urn ( 1 7 ) ; } 
"18  !  ");ECHO/*printf  ("  \n"  )  ;  ret  urn  (  18)  ;  > 
("19  J  ");ECHO;printf ("  \n" ) ; ret  urn ( 1 9 ) ; > 
("20  !  ");ECHO;printf ("  \n" ) ; ret  urn (20 ) ; > 
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NOT 

NULL 

OF 

OR 

OTHERS 

OUT 

PACKAGE 


(printf ("21 


);ECHO;orintf ("  \n " ) ; ret  urn (2  1  )  ;  } 


<printf("22  !  ");ECHO;printf  ("  \n" ) ; ret  urn (22 ) ; > 
{printf("23  I  H ) ; ECHO;pr i nt f ( "  \nM ) ; ret  urn (23 ) ; } 
<printf(H24  J  " ) ; ECHO;pr i nt f ( "  \n"  ) ; ret urn(24 ) ; > 

(printf("25  !  " ) ; ECH0;pr i nt f ( "  \n" ) ; ret  urn (25) ; } 
(printf("26  !  M  )  ? ECHO; pr i nt f ( "  \n " ) ; ret  urn (26) ; } 

(printf("27  !  H ) ; ECHO ; pr i nt f ( "  \n"  )  ;  ret  urn ( 27 ) ; } 


PROCEDURE  <printf("28  !  " ) ; ECHO;pr i nt f ( "  \n" ) ; ret  urn (28) ; > 
RANGE      (printf("29  J  M ) ; ECHO Ipr i nt f ( "  \n" ) ; ret  urn ( 29 ) ; } 

RECORD  {printf("30  !  " ) ; ECHO ; pr i n t f ( M  \n" ) ; ret  urn ( 30 ) ; a 
RESTRICTED     (printf("31  !  " ) ; ECHO? pr i nt f ( "  \n" ) ; ret  urn ( 3 1 ) ; > 

RETURN  {printf(M32  !  *' )  ;  ECHO;  pr  i  nt  f  (  M  \n"  )  ;  ret  urn  (  32  )  ;  } 

REVERSE  {printf(M33  !  " ) ; ECHO; pr i nt f ( "  \nM ) ; ret  urn ( 33 ) ; > 

SEPARATE  {printf("34  J  "  )  ; ECHO ; pr i nt f ( "  \n"  )  ; ret u rn ( 34 ) ; } 


THEN 
TYPE 
USE 

WHEN 

WHILE 

XOR 


(printf ("35 
{printf ("36 
(printf ("37 
(printf ("39 


M);ECH0; printf ("  \n" ) ; ret u rn ( 35 ) ; } 
" ) ;ECHO;printf ("  \n" ) ; ret  urn ( 36) ; > 
");ECHO;printf("  \n");return(37);> 
");ECHO; printf ("  \n"  ) ; ret  urn ( 39 ) ; } 
(printf("50  !  " ) ; ECHO; pr i nt f ( "  \n"  ) ; ret  urn (50 ) ; } 
(printf("51  !  H  )  ; ECHO; pr i nt f ( "  \n" ) ; ret  urn (5 1 ) ; } 
AND. THEN     (orintf("52  J  " ) ; ECHO; pr i nt f ( "  \nM ) ; ret  urn (52) ; > 
OR. ELSE      (printf("53  !  " ) ; ECHO;pr i nt f ( "  \n"  )  ; ret  urn (53) ; > 
\:\?      <printf("70  !  H ) ; ECH0;pr i nt f ( "  \n" ) ; ret  urn ( 70 ) ; } 
\.\.      (printf("71  !  " ) ; ECH0;pr i nt f ( "  \n"  ) ; ret  urn ( 7 1 ) ; } 
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=\> 

\/\? 

\<\= 

\>\= 

\<\< 

\>\> 

\; 

\( 

\) 

\: 

\, 

\. 

\' 

\= 

\< 

\> 

\8, 

\* 

\/ 

\: 

\t 

\- 

{id> 

{nym> 


{print 

{pr  i  n 

{ppi  n 

{pri  n 

{pr i  n 

{pr  i  n 

{pr  i  nt 

{print 

{print 

{print 

{print 

{print 

{print 

{print 

{print 

{print 

{print 

{print 

{print 

{pr  i  nt 

{print 

{print 


("72  !  ");ECHO;Print 


f  ("73 
f  ("7a 
f  ("75 
f  ("76 
f  (  "  7  7 
("78 
("79 
("80 
("81 
("82 
("83 
("8a 

("85 
("86 
("87 
("88 
("89 
("90 
("91 
("92 
("93 


") ;ECHO;prin 
");ECHO;prin 
");ECHO;prin 
") ;ECHO;prin 
") ;ECHO;prin 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 


!  ")i 

•echo; 

!  "); 

echo; 

!  "); 

•echo; 

!  "); 

•echo; 

!  "); 

■echo; 

:  ")- 

iecho; 

:  "), 

;echo; 

:  "); 

•echo; 

!  ")i 

;ECho; 

:   m)j 

;ECho; 

:   ")- 

;ECho; 

!  ")< 

;Echo; 

:  "), 

;echo; 

!  ")! 

;ECho; 

:  ")- 

;ECho; 

!  ") 

;ECho; 

("  \n");return(72);a 
f("  \n"); ret  urn (73);} 
f("  \n"); return(7a);> 
f("  \n");return(75);> 
f("  \n");return(76);> 
f("  \n");return(77);> 


("  \n" 

("  \n" 

("  \n" 

("  \n" 

("  \n" 

("  W 

("  \n" 

("  \n" 

("  \n" 

("  \n" 

("  \n" 

C"  \n" 

("  \n" 

("  \n" 

("  \n" 

("  \n" 


ret  urn ( 78) 
ret  urn ( 79 ) 
return(80) 
ret  urn ( 8 1 ) 
ret  urn ( 82 ) 
ret  urn ( 83 ) 
return(8a) 
return (85 ) 
return (86) 
ret  urn (87 ) 
return (88) 
return (89) 
return (90) 
return(91 ) 
return (92) 
return(93) 


{printf("5a  !  " ) ; ECHO;pr i nt f ( "  \n " ) ; ret u rn (5a ) ; } 
{printf("55  !  " ) ; ECHO; pr i nt f ( "  \n"  ) ; ret u rn (55 ) ; a 
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-\-[f$\n]*     ;       /*cielete  comments*/ 

(charstrl  {printf("56  !  " ) ; ECHO; or i nt f (  "  \n" ) ; ret  urn ( 56 ) ; } 

t  \t\nj  ;      /*ignore  b 1 anks , t ab , new  1 i ne*/ 

XX 

/* 

mai  n (  )  { 

i  nt  nextoken; 

nextoken  =  1 ; 

while  (nex  token  1  = 

nextoken  = 

} 

i 

*/ 


0){ 

yy 1  ex ( ) ; 
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APPENDIX  B 

Ada/MCS 

The  appendix  is  a  listing  of  the  four  files  that  de- 
fine Ada/MCS. 

Ada. terms .mean 

This  portion  of  Appendix  3  is  simply  a  listing  of 
all  the  abbreviations  used  in  forming  the  subset  Ada/MCS. 
This  file  is  not  an  input  to  YACC. 

aggr  taggregate 
aDprox  :approximate 
assoc  :association 
at  t  r i  : at  t  r i  bute 
char  :charac t  er 
chars  icharac t ers 
comp  :comoonent 
cond  :condi  t  i  on 
constr  rconstraint 
dec  1  :dec 1 arat  i  on 
def n  :def  i  n  i  t  i  on 
di  sc  :di  sc  ret e 
enum  Enumeration 
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exp  lexponent 

expr  : express  i  on 

ex t  : ex  tent  i  on 

fac  rfactor 

id  :  i  dent  i  f  i  er 

i  nt  : i  nteger 

iter  : i  terat  i  on 

lit  : 11 teral 

1 og  : 1 ogi  cal 

mod  : modu 1 e 

mul t  :mu 1 t  i  d1 y i  ng 

num  :number 

obj  : object 

op  toperator 

para  :parameter 

pr i  :or  i  mary 

prog  :program 

rel  : rel at  i  on 

rel  al  : rel at  i  onal 

rest  r  : rest  ri  c ted 

seg  :seguence 

spec  : soeci f i cat i on 

stmt  rstatement 

stmts  :  statement  s 
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st  r  : st  ri  ng 
var  : vari  aD 1 e 
vis  : vi  sibi 1 i  ty 
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Ada. tokens  A  d  a  /  M  C  S  Ada.includelex 

These  three  files  are  concatenated  to  form  the  inout 
to  YACC.  This  input  file  provides  YACC  with  the  token 
values  that  will  be  returned  from  the  scanner*  the  BNF  gram- 
mar rules>  and  the  actions  to  be  performed  by  the  parser. 


Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xt  oken 
Xt o*en 
Xt oken 
Xt oken 
Xtoken 
Xt oken 
Xt  oken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 


'$• 

0 

ALL 

1 

AND 

2 

ARRAY 

3 

ASSERT 

a 

BEGIN 

5 

BODY 

6 

CASE 

7 

CONSTANT 

8 

ELSE 

9 

ELSIF 

10 

END 

11 

EXIT 

12 

FOR 

13 

FUNCTION 

14 

GOTO 

15 

IF 

16 

IN 

17 
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Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xt oken 
Xtoken 
Xtoken 
Xtoken 
%token 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 


IS 

18 

LOOP 

19 

MOD 

20 

NOT 

21 

NULL 

22 

OF 

23 

OR 

24 

OTHERS 

25 

OUT 

26 

PACKAGE 

27 

PROCEDURE 

28 

RANGE 

29 

RECORD 

30 

RESTRICTED 

31 

RETURN 

32 

REVERSE 

33 

SEPARATE 

3a 

THEN 

35 

TYPE 

36 

USE 

37 

WHEN 

39 

WHILE 

50 

XOR 

51 

AND. THEN 

52 
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Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 
Xtoken 


OR. ELSE 

53 

id 

54 

num 

55 

charSst  r 

56 

•  *• 

70 

•  • 

71 

•  =>  ' 

72 

•/=' 

73 

•  <=  ' 

74 

•  >=  • 

75 

'  <<  ' 

76 

'  >>  • 

77 

78 

'(' 

79 

')' 

80 

•  •  • 
• 

81 

f 

82 

»  • 

• 

83 

•V  ' 

84 

i  -  t 

85 

'<• 

86 

•>• 

87 

•4' 

88 

•  *  • 

89 
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%token  '/•  90 

Xtoken  ' :'  91 

XtoKen  ■  +  •  92 

%token  '-•  93 

XX 

compi 1  at i on$un i t :     opt . v i s$res t r i c t i on •       ODt.  SEPARATE 

un i  t  Sbody 

=  {printfC   !  comoil  at  i  on$un  i  t  \nH  )  ;  >  ; 
ODt.visSrestriction.: 

=  {printfC   J  opt . vi sJrest ri ct i on.\n")  ;  } 
J  v  i  s$rest  ri  c t  i  on 

=  {printfC   !  opt .vi sSrest ri ct i on.\n" ) ; >  ; 
OPt .SEPARATE.: 

=  {printfC   !  opt  .SEPARATE .  \n");> 
!  SEPARATE 

=  {printfC   !  opt  .SEPARATE .  \n");}  ; 
dec  1 :  ob  j  $dec 1 

=  {printfC   !  dec  1  \n");> 
!  typeSdecl 

=  {printfC   !  decl  \n");> 
J  error  ';'  =  {printfC   !  Parse  error\nH);>  ; 
OPt .CONSTANT. : 

=  {printfC   !  opt  .CONSTANT.  \n");} 
!  CONSTANT 
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=  <orintf("   !  opt . CONST  ANT .  \n");>  7 
opt .S.exor . : 

=  {print f("   !  opt.S.expr.  \n" );> 
!  '  :  =  '   expr 

=  (printfC"   !  opt. $. expr  \n");>  ; 
objSdecl:  idSlist   ':'   opt  .CONSTANT .   type   opt. $• expr. 

=  {printfC   !  objSdecl  \n");>  ', 
f st .$. id. : 

=  {printfC*   !  fst.S.id.  \n");> 
!  f st .$. id.  ' ,  •   id 

=  {printfC   !  fst.S.id.  \n"  );>  ; 
id$1 i  st :  id   f st .$. i  d. 

=  {printfC   !  idSlist  \n");}  ; 
type:  typeSmark 

=  {printfC   !  type  \n");>  ', 
typeSdefn:  enumSt ypeSdef n 

=  {printfC   I  typeSdefn  \nM);> 
!  i nt StypeSdefn 

=  {printfC   !  typeSdefn  \n");> 
!  arraySt ypeSdef n 

=  {printfC   !  typeSdefn  \nM);> 
!  recordStypeSdef n 

=  {printfC   !  typeSdefn  \n");>  } 
typeSmark:  name 
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=  {printfC   !  typeSmark  \n");>  ; 
constr:  rangeSconstr 

=  {printfC   !  constr  \n");a  ; 
typeSdecl:  TYPE   id   IS   typeSdefn   ';' 

=  {printfC   !  typeSdecl  \n");}  ; 
rangeSconstr:  RANGE   range 

=  {printfC   •  pangeSconstr  \n");}  ; 
range:  rangeSid   '..'   simpleSexpr 

=  {printfC   !  range  \n");a  ; 
rangeSi  d:  id 

=  {printfC   !  rangeSid  \n");> 
!   lit 

=  {printfC   !  rangeSid  W);>  ; 
f st .enumSl it.: 

=  {printfC   !  fst.enumSl it.  \nM);> 
!   f st .enumS 1 i t  .  enumSlit 

=  {printfC   !  fst.enumSl  it.  \nM);>  ; 

enumStypeSdef n:  »('   enumSlit  '/'   fst.enumSl it.   ')' 

=  {printfC   !  enumSt  ypeSdef  n  \n");}  ; 
enumSl it:  id 

=  {printfC   !  enumSlit  \nH);> 
!   charSst  r 

=  {printfC   !  enumSlit  \n");o  ; 
i nt StypeSdef n :  rangeSconstr 
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=  {printfC  !  i nt St ypeSdef n  \n");>  ; 
f  st  .$.  i  ndex . : 

=  {printf(M  !  fst.S. index.  \n");} 

!  fst.S. index,  •/'  index 

=  {print f("  !  fst.S. index.  \nM);>  ; 

arrayStypeSdef n:  ARRAY   »(■  index    fst.S. index.    ')'    OF 
typeSmark 

=  {ppintfC  !   arrayStypeSdef n  \n");>  ; 
i  ndex :  di  scSrange 

=  {printfC  !  index  \n");> 
!  typeSmark 

=  {print f(H  J  index  \nM);>  ; 
discSrange:  typeSmark   RANGE   range 

=  {printfC  !  discSrange  \n");>  ; 
fst.S.compSassoc.: 

=  {printfC*  !  f  st  .compSassoc  .  \n");> 

J  fst.S.compSassoc.  'r'   compSassoc 

=  {printfC*  !  fst.S.compSassoc.  \n");>  ; 
aggr:  '('   compSassoc   fst.S.compSassoc.   ')' 

=  {printfC  !  aggr  \nM);>  ; 
f st  .S.choi  ce. : 

=  {printfC  !  f  st  .  $  .choi  ce.  \n");> 

!  fst  .S.choi ce.  '!'  choice 

=  {printfC  !  fst  .S.choi  ce .  \n")?>  ', 
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opt.. 1st. $ . choice. J.expp.: 

?   {printfC    !   opt  .  .  1  st  .  $  .  cho  i  ce . .  $  .  expr 
\nH);> 

!  f st  .$. choice.   '=>'   expr 

=   {printfC    }    opt . . 1 st .S.choi ce . . Sexpr 

\n");>  ; 

compSassoc:  restrSchoice   f st  .  $  .choi ce.   ■=>'   expr 

=  {printfC   !  compSassoc  \n");> 
!  pri   op t.. 1st. $. choice. .$. expr. 

=  (printfC   !  compSassoc  \n");(  ; 
restrSchoice:  discSrange 

=  {printfC   !  restrSchoice  \n");> 
!  OTHERS 

=  {printfC   !  restrSchoice  \n");>  ; 
choice:  rangeSi  d 

=  {printfC"  !  choice  W);> 
!  rest  rScho  i  ce 

=  {printfC  !  choice  \nM)  ;  }  ; 
record$type$defn:  RECORD   comoSlist   END   RECORD 

=  {printfC   !  recordSt  ypeSdef  n  \n"),*>  ; 
f st .ob j Sdecl  . : 

=  {printfC   !  f  st  .objSdecl  .  \n");> 
!  f st .obj Sdecl .  objSdecl 

=  {printfC   !  fst. objSdecl  .  \n");>  ; 
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compSlist:  f st  .ob j $dec 1 . 

=  (print  f("   !  compSlist  \n");>  ; 
name:  id 

=  {pri  nt  f (H   J  name  \n")  ;  > 
!  subprogSarraySvar 

=  {printfC   !  name  \n");> 
!  sel ectedScomp 

=  (printf ("   !  name  \n") ; > 
!  predef i nedSat t ri 

=  {printfC   !  name  \n");}  ; 
sel ec t edScomp:  name   '.'   id 

=  {printfC   !  se 1 ect edScomp  \nM);>  ; 
predef  i  nedSat  t  ri  :  name   'V*   id 

=  {printfC   !  predef  i  nedSatt  ri  \n");n  ; 
lit:  num 

=  {printfC  !  lit  \n");> 
!  charSst  r 

=  {printfC  !  lit  \n");>  ; 
var :  name   ' • '   ALL 

=  {printfC   •  var  \n");>  ; 
f st .$ .expr  . : 

=  {printfC   !  fst.S.expr.  W);> 
!  f st  .S.expr.  ' t  '   expr 

=  {printfC   !  fst.S.expr.  \n");>  ; 
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subprogiar raySvap :  name   '('   expp   fst.S.expr.   ')' 

=  {printfC   i  subprog$array$var  \n");}  ; 

opt .relal SoP.simpleSexpp. : 

=   {printfC    !    oot.relal$op.sinnple$expr. 

\n");> 

!  relalSop   simpleSexpr 

=   {printfC    J    opt . rel a  1  Sop. s i mp 1 e$expr  . 


opt .NOT. : 


!  NOT 


opt .const  r . : 


=  {printfC   !  opt. NOT.  \nn);> 


=  {printfC   !  opt. NOT.  \n");}  ; 


=  {printfC  !  opt.constr.  \nH);} 


!  constr 

=  {printfC  !  opt.constr.  \n");a  ; 
pel:  simpleSexpr   opt  .  rel a  1  Sop. s i mpl eSexpr . 

=  {printfC   !  pel  \n");> 
!  simoleSexpr   opt. NOT.   IN   range 

=  {printfC   !  pel  \n");> 
!  simpleSexpr   opt. NOT.   IN   typeSmark   opt.constr 
=  {printfC   !  rel  \n"),*>  ; 
expr:  expr   logSop   rel 

=  {printfC   !  expr  \n");> 
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!  rel 

=  {printfC  !  expr  \n"),*>; 
opt .unarySoo, : 

=  {printfC  !  opt,unary$op.  \nw);> 
!  unarySop 

=  {printfC  !  opt.unarySop.  \  n  "  )  ;  }  ; 
fst. add ingSop. term,: 

=  {printfC  !  f st .addingSoo.term.  \n");> 
!  f  st  .addi  ngSop.  t  erm.  addingSop   term 

=  {printfC  !  f st  .addi ngSop. term.  \n");>  ; 
simpleSexpr:  opt .unarySop .   term   f st  .  addi ngSop . t erm . 

=  {printfC  !  simpleSexpr  \nw);>  ; 
f st .mul t  Sop . f ac  . : 

=  {printfC*  !  f  st  .mul  t$op.  f  ac  .  \nH);} 
!  f st .mul t Sop.  f ac  .  multSop   fac 

=  {printfC  !  f  st  .mul  t  Sop.  f  ac.  \n");a  ; 
term:  fac   f st .mul t Sop. f ac . 

=  {printfC  !  term  \n");>  ; 
f ac :  pr i 

=  {printfC  1  fac  \n");>  ; 
pri  :  lit 

=  {printfC  !  pri   \n");> 
!  aggr 

=  {printfC  !  pri   \n");> 
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!  name 


!  var 


logSop:  AND 


!  OR 


J  XOR 


relalSoo:  '=' 


!  •/=• 


!  •<• 


;  •<=• 


!  '>' 


•  •>=• 


addingSop:  ' ♦ 


=  {printfC   !  pri   \n");> 


=  {printfC   !  pri   \n");>  } 


=  {printf  ("   !  logSop  \nN);> 


=  {orintfC   !  logSop  \nM);> 


=  (orintfC   !  logSop  \n");>  ; 


=  {printfC   !  relalSop   \n");> 


=  {printfC"   !  relalSop   \n");> 


=  (printfC   !  relalSoD   \n");> 


=  {printfC   !  relalSop   \nM);> 


=  {printfC   !  relalSop   \n");> 


=  {printfC   !  relalSop   \n");>  ; 


=  {printfC  !  addingSoo   \n");o 
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•   I  _  I 


!  '& 


unarySoo:  '+' 


=  {printfC  !  addingSop   \n");> 


=  {printfC  !  addingSop   \n");a  ; 


=  {printfC   !   unarySop   \n");} 


=  {printfC   !   unarySop   \n");> 
!  NOT 

=  {printfC   !   unarySop   \n");>  ; 
mul t $00:  ' * ' 

=  {printfC   !   multSop   \nM);} 
!  '/' 

=  {printfC   !   mult  Sop   \n");> 
!  MOD 

=  {printfC   !   multSop   \n");}  ; 
f st .stmt  • : 

=  {printfC   I   fst.stmt.   \n");> 
!  fst.stmt.  stmt 

=  {printfC   !   fst.stmt.   \  n  "  )  ;  }  ', 
seq$of Sstmt s:  fst.stmt. 

=  {printfC   !   seq$of$stmts   \n");>  ', 
stmt :  s  i  mol e$stmt 

=  {printfC   !   stmt   \n");o 
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I  compoundSst mt 

=  {printfC   J   stmt   \nH);> 
!  '<<'   id   '»'   stmt 

=  {printfC   !   stmt   \nM);} 
!  error  ';'  =  {printf ("Parse  error\nH);>  ; 
simpleSstmt:  ass i gnment $s t mt 

=  {printfC   !   simpleSstmt   \nM);> 
!  subprogScal 1 Sstmt 

=  {printfC   !   simpleSstmt   \n");> 
!  exitSstmt 

=  {printfC   !   simpleSstmt   \n");> 
!  returnSstmt 

=  {printfC   !   simpleSstmt   \n");> 
!  gotoSstmt 

=  {printfC   !   simpleSstmt   \n");a 
I  assertSstmt 

=  {printfC   !   simpleSstmt   \n");) 
!  NULL   ' ; ' 

=  {printfC   !   simpleSstmt   \n");}  ; 
compoundSst mt :  i f Sstmt 

=  {printfC   !   compoundSst  mt   \nM);> 
I  caseSstmt 

=  {printfC   !   compoundSstmt   \n");> 
!  1 oooSstmt 
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=  {printfC   !   compoundSstmt   \n");}  ; 
assi gnment Sstmt :  var   ':='   exor   ';' 

=  {printfC   !   ass  i  gnment  Sstmt   \n");> 
!  name   ' :  =  '   expr   '  ;  ' 

=  {printfC   !   ass i gnment Sstmt   \n");>  ; 
subprogScall Sstmt :  name   ';' 

=  {printfC   !   subprogScall Sstmt   \n");>  ; 
opt .exor . : 

=  {printfC   !   opt. expr.   \n");> 
!  expr 

=  {printfC   !   opt. expr.   \n"  ),*}  ; 
returnSstmt:  RETURN   opt.exDr.   •;• 

=  {printfC"   !   returnSstmt   \n");>  ; 
fst. ELSIF.c on d. THEN. seqSofSstmts.: 

=  {printfC  ! 

f st .ELSIF.cond.THEN.seqSof Sstmts.       \n"  )  ;  } 

!   f st .ELSIF.cond.THEN.seqSof Sstmts.    ELSIF     cond 
THEN   seqSofSstmts 

=  {printfC  J 

fst .ELSIF.cond.THEN.seqSof Sstmts.   \n");>  ; 
opt. ELSE. seqSofSstmts.: 


(printfC     !     opt  .ELSE  .  seqSof  Sstmt  s  . 


\n");> 


!  ELSE   seqSofSstmts 


75 


=    {printfC"      !     oot .ELSE.seqSof Sstmts. 

\n-);>   ; 

ifSstmt:  IF  cond  THEN  seq$of$stmts 
fst.ELSIF. cond. THEN. seq$of$stmts.  opt.ELSE.seqSofSstmts. 
ENO   IF   •  ;• 

=  {printfC"   !   ifSstmt   \n");>  ; 
f st .condSext  .  : 

=  {printfC"   !   f st .condSex t  .   \nM);> 
!  f st  .condSex t .  condSext 

=  {print f("   !   f st  .condSex t .   \n" );>  ; 
cond:  expr   f st  .condSex t . 

=  {ppintfC"   !   cond   \n");>  ; 
cond$ext:  AND. THEN   exDr 

=  {printfC"   !   condSext   \n");> 
!  OR. ELSE   exqp 

=  {printfC   !   condSext   \n");}  ; 
fst. WHEN. choice.. 1st. $. choice. .$.seq$of$stmts.: 

=  ( p  p  i  n  t  f  (  "  ! 

fst .WHEN. choice.. 1st •$. choice.. $.seq$of$st mts.   \nH);} 

J      f st  .WHEN.choice. . 1st. S. choice. . $. seqSof $st mt s . 
WHEN   choice   f st  .  S.choi ce.   '=>'   seq$of$stmts 

=  {printfC"  ! 

fst .WHEN. choi ce. . 1st .S.choi ce. , S.seqSof Sstmt s .   \n");>  ; 
caseSstmt:  CASE  expr  OF 
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f st  .WHEN. choice. . 1st .S.choi ce. . S. seqSof Sstmt s .     END    CASE 

•; ■ 

=  {printfC   !   caseSstmt   \  n  "  )  ;  }  ; 
opt . i  terSspec • : 

=  {printfC   !   opt . i terSspec .   \nM);o 
!  i  terSspec 

=  {printfC   !   opt .  i  t  erSspec  .   \n");}  ; 
loopSstmt:  opt . i terSspec .   basicSloop 

=  {printfC   !   loopSstmt   \n"  )/*>  ; 
opt .id.: 

=  {printfC   !   oDt.id.   \n");> 
!  id 

=  {printfC   1   opt. id.   \n");>  } 
basicSloop:  LOOP   seqSof Sstmt s   END   LOOP   opt. id.   ';' 

=  {printfC   !   basicSloop   \n");>  ; 
opt .REVERSE.: 

=  {printfC   !  opt. REVERSE.   W);> 
!  REVERSE 

=  {printfC"   !  opt. REVERSE.   \n");}  ; 
iterSspec:  FOR   loopSpara   IN   opt. REVERSE.   discSrange 

=  {printfC"   !  iterSspec   \n");> 
!  WHILE   cond 

=  {printfC   !  iterSspec   \n");>  ; 
loopSpara:  id 


77 


=  {printfC   !  loopSpara   \n");}  ; 
ODt .WHEN.cond. : 

=  {print  f (" 
J  WHEN   cond 

=  {printfC 
exitSstmt:  EXIT   opt. id.   opt 

=  {print f (" 
gotoSstnnt:  GOTO   id   ';• 

=  {pri  ntfC 
assertSstmt:  ASSERT   cond   '; 

=  {print f(" 
opt .useSc 1 ause.  : 

=  {printfC 
S  useSclause 

=  {printfC* 
f st .decl  . : 

=  {printfC 
!  f st .dec  1  .  dec  1 

=  {pri  nt  f  (H 
f st .body . : 

=  {printfC 
!  fst.body.  body 

=  {print  f  C 
dec  1 arat i veSpart :  opt  .useSc 1 ause .   fst.decl.   fst.body. 


Opt .WHEN.cond.   \nM);> 

opt .WHEN.cond.   \n");>  ; 
WHEN.cond.   ';' 
exitSstmt   \nH);}  ', 

gotoSstmt   \n");>  ; 

assertSstmt   \n");>  ; 

opt .useic 1 ause.   \nw);> 

opt .useSc 1 ause  .   \n");>  ; 

fst.decl.   \n" );} 

f st .decl  .   \n") ;}  ; 

fst.body.   \n");a 


fst.body.   \n");}  ; 
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=  (printfC   !  dec  1  arat  i  veSpart   \n");>  ; 
body:  opt • v i sSrest ri c t i on •   unitSbody 

=  (printfC   !  body   W);}  ; 
unitSbody:  subprogSbody 

=  (printfC   !  unitSbody   \n");> 
!  modSspec 

=  {printfC   !  unitSbody   \n");> 
J  modSbody 

=  (printfC   !  unitSbody   \nM);}  ; 
opt . forma  1 Spart . : 

=  {printfC   !  opt . formal Spart .   \nH);} 
!  forma  1 Spart 

=  (printfC   !  opt . formal Soart .   \n");>  ; 
oot .RETURN. typeSmark. : 

=  (printfC"   !  opt .RETURN. typeSmapk .   \n");> 
!  RETURN   typeSmark 

=  (printfC   !  opt  .RETURN .  typeSmark  .   \n");}  ; 
subopogSspec :  subprogSnature    designatop    oot . forma  1 ioart . 
opt. RET  URN. typeSmark. 

=  (printfC   !  subprogSspec   \n");}  ; 
subprogSnature:  FUNCTION 

=  (printfC   !  subprogSnature   \n");> 
!  PROCEDURE 

=  (printfC*   !  subprogSnature   \n");}  ; 
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desi  gnator  :  i  d 

=  {printfC 
f  st  . $. paraSdec 1  .  : 

=  {printfC" 
J  f  st  .S.paraSdecl  .  '  * 

=  {printfC 


formal Spart :  '(•   paraSdecl   f st . $ .paraSdec 1 .   ')' 


desi  gnator   \n" ) ; o  ; 

fst  .S.paraSdecl .   \n");> 

paraSdec 1 
f st .$. paraSdec 1  .   \n"  );>  ; 


formalSpart   \n");>  ; 
typeSmark   opt.S.expr. 
paraSdec!   \n");>  ; 

opt. IN.   \nw);} 

opt. IN.   \n");>  ; 


=  {printfC 
paraSdecl:  idSHst   '  :'   mode 

=  {printfC 
opt .IN. : 

=  {printfC 
!  IN 

=  {print  f (" 

mode:  oot .IN. 

I  OUT 

!  IN   OUT    ; 
subprogSbody :   suoprogSspec    IS    dec  1 arat i veSpar t     BEGIN 
seqSofSstmts   END   id   •  ;  ' 

=  {printfC   !  subprogSbody   \n");>  ; 
opt.IS.declarativeSpart.: 


{printfC"     !    opt.IS.declarativeSpart. 


\n");> 


!  IS   dec  1 arat i veSpart 
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{printfC     J    opt . IS. dec  1 arat i veSpart . 


modSsoec:   modSnature    id  opt • IS .dec  1 arat i veSpar t .     END 
opt . id. 

=  {printfC  !  modSspec   \nH);>  ; 
modSnature:  PACKAGE 

=  {printfC*  !  modSnature   \n");}  ; 

modSbody:  modSnature   BODY  id    IS    dec  1 arat i veSpart    END 
id 

=  {printfC  !  modSbody   \n");>  ; 
opt . v i  s$l i  st . : 

=  {printfC  !  opt  .  v  i  s$  1  i  s  t  .   \nM);> 
S  vi  sSl i  st 

=  {printfC  !  opt .vi sSl i st  .   \nM);>  ; 

visSrest rict ion:  RESTRICTED  opt  . v i s$l i st . 

=  {printfC  !  v i sSrest r i c t i on   \n");>  ; 
f st . S.name.  : 

=  {printfC  !  fst.S.name.   \n");> 
!  fst.S.name.  'r'   name 

=  {printfC  !  fst.S.name.   \n");>  ; 
visSlist:  '('   name   fst.S.name.   *)' 

=  {printfC  !  visSlist   \n");>  ; 
useSclause:  USE   name   fst.S.name. 

=  {printfC  !  useSclause   \n");>  ', 
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XX 


#i nc 1 ude    " lex.yy.c" 
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APPENDIX  C 

Parse  Tabl e 

This  Appendix  illustrates  the  output  of  the  YACC 
program  used  to  manually  interpret  YACC's  parse  tables.  This 
file  is  produced  using  the  "-  v"  option  of  YACC. 

state  0 

Sacceot  :  «-compi  1  at  i  onSuni  t  Send 

oot .  vi  sSrest  r  i  ct  i  on  .  :  «■     (2) 

RESTRICTED   shift  4 

•   reduce  2 

compi 1  at i onSun i t   goto  1 

opt • vi sSrest r i ct i on.   goto  2 

v i sSrest r i ct i on   goto  3 
state  1 

Saccept  :   compi  1  at  i  onSuni  t«-$end 

Send   accept 
error 
state  2 

compi 1  at  i  onSun  i  t  ' 

opt. visSrestricti  on. «-opt. SEPARATE.  unitSbody 

opt  .SEPARATE.  :  <-     (4) 

SEPARATE   shift  b 
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state  3 


state  4 


reduce  4 
opt .SEPARATE.   goto  5 

oot .vi sSrest ri ct i on .  :   v  i  sSrest  ri  c  t  i  on«-     (3) 
reduce  3 

vi sSrest rict ion  :   RESTRICTED«-opt  .  v  i  s$1  i  st  . 

opt  .vi  s$l  i  st .  :  «•     (198) 

(   shi  ft  9 
reduce  198 

opt . v i sSl i st .   goto  7 

vi  sSl i  st   goto  8 
state  5 

comDi 1  at i on$un i t         : 
op  t.  SEPARATE.  «-unit$body 

FUNCTION   shift  18 

PACKAGE   shift  17 

PROCEDURE   shift  19 


opt .vi  sSrest  rict  ion 


•   error 

un  i  t  Sbody   goto  10 
suborogSbody   goto  11 
modSspec   goto  12 
modSbody   goto  13 
subprogSspec   goto  14 
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state  6 


state  7 


state  8 


state  9 


suborogSnature   goto  16 
modSnature   goto  15 

opt. SEPARATE.  :   SEPARATE*     (5) 
reduce  5 

vi  sSrestrict  ion  :   RESTRICTED  opt  .  vi  s$U  st  .«■ 

•   reduce  200 

opt.visSlist.  :   vis$list<-     (199) 
reduce  199 

visJIist  :   («-name  fst.S.name.  ) 

id   shi  ft  21 
error 

name   goto  20 

suborogSar ray $var   goto  22 

sel ec tedScomp   goto  23 

predef i nedSat t r i   goto  24 
state  10 

comoi 1  at  i  on$uni  t        : 
opt  .SEPARATE.  unit$body«-     (1) 

reduce  1 
state  11 


(200) 


opt  .vi  s$rest  rict  ion 
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unit$body  :   suborog$body«-     (172) 

•  reduce  172 
state  12 

unitSbody  :   modSspec«-     (173) 
reduce  173 
state  13 

unitSbody  :   mod$body«-     (174) 
reduce  17a 
state  14 

subDrogSbody  :   suborogSspec*-IS  dec  1 arat i veSpart  BE- 
GIN seg$of Sstrnts  END  id  ', 

IS   shift  25 
error 
state  IS 

modSsoec  :    mod$nature«-i  d   opt . I S .dec ) arat i veSpart . 
END  opt. id. 

modSbody  :   modSnat  ure«-BODY  id   IS   dec  1  arat  i  veSpart 
END  id  ; 

BODY   shift  27 

id   shift  26 

•  error 
state  16 

suborogSspec       :         subprogSnat  ure*-des  i  gnator 
OP t. formal  Spa rt.  opt. RETURN. typeSmark. 
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state  17 


id   shift  29 

error 
designator   goto  28 

modSnature  :   PACKAGE*- 
reduce  196 


(19t>) 


state  18 


state  19 


suborogSnature 
reduce  180 

suborogSnat ure 
.   reduce  181 


FUNCTION*- 


(180) 


PROCEDURE*- 


(181) 


state  20 


sel ec t edScomp  :   name*-,  id 

predef i ned$at t r i  :   name<-'  id 

suborogSar raySvar  :   name<-(  expr  fst.i.expr. 

visSlist  :   (  name^f st . $ .name .  ) 

f  st  .S.name.  :  *•     (201  ) 

(   shift  32 

shi  ft  30 
'   shift  31 

reduce  201 
fst. S.name.   goto  33 


state  21 
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name  :   i  d«-     (58) 
reduce  58 
state  22 

name  :   subprogSar  ray$var«-     (59) 

.   reduce  59 
state  21 

name  :   sel  ec  t  ed$comp«-     (60) 

•  reduce  60 
state  24 

name  :   predef  i  nedSat  t  r  i  <-     (61) 

•  reduce  61 
state  25 

subDrogSbody  :   subprogSsoec  IS«-dec  1  arat  i  veSpart  BE' 
GIN  seqSofSstmts  END  id  ; 

opt  .use$c 1 ause.  :  «-     (164) 
USE   shift  37 

•  reduce  164 

opt .useSc 1 ause  •   goto  35 

useSclause   goto  36 

dec  1 arat i veSpart   goto  34 
state  2b 

modSspec  :    modSnature   i  d«-opt  .  IS  .dec  1  arat  i  veSpart 
END  oPt.id. 

opt  .IS. dec  1  arat  i  veSpart  .  :  <-     (193) 
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state  27 


IS   shift  39 

reduce  193 
opt . IS. dec  1 arat i veSoart  .   goto  38 

> 

modSbody  :   modSnature  B0DY«-id   IS   dec  1  arat  i  veSpart 


END  id  ; 

id   shift  40 
error 
state  28 

subprogSsoec  :  subprogSnat ure 

designator«-opt  •  formal  $Dart  •  oot  .  RETURN,  typeimark. 

opt  •  forma  1  Spart .  :  *     (175) 

(   shift  43 
reduce  175 

opt . formal ipart  .   goto  41 

formal Spart   goto  42 
state  29 

designator  :   i  d«-     (182) 
reduce  182 
state  30 

sel  ect  edScomp  :   name  .«-id 

id   shift  44 


•   error 


state  31 
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oredef  i  nedSat  t  r  i  :   name  '  «■  i  d 
id   shift  45 
•   error 


state  32 


name  Oexpr  fst.S.expp.  ) 
(81) 


subprogSar ray $var  : 

opt  .  unary  Sop,  :  <■ 

NOT   shift  53 

+   shi  ft  51 

-   shift  52 
reduce  81 

expr   goto  46 

simoleSexpr   goto  48 

re]       goto  47 

opt .unarySop.   goto  49 

unarySop   goto  50 
state  33 

fst.S.name.  :   f  st  •  $  .  name.*-*  name 

visSlist  :   (  name  f  st  .  $  .  name  .«-) 

)   shift  55 

,   shift  54 
error 
state  34 

suborogSbody         :  subprogSspec 

decl  arat  i  ve$part<-8EGIN  seqSofSstmts  END  id  ; 


IS 
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opt.use$dause.«-fst.decl  • 


BEGIN   shift  56 
error 
state  35 

dec  1 arat i veSoart     : 
f st  .body . 

f  st  .decl  .  :  «-     ( 166) 
reduce  166 

f st  .dec  1 .   goto  57 
state  36 

opt  .useSc  1  ause .  :   use$clause«-     (165) 

•  reduce  165 
state  37 

useidause  :   USE«-name  fst.S.name. 
id   shi  ft  21 

•  error 
name   goto  58 

subprogSar raySvar   goto  22 
se \ ec t edScomp   goto  25 
predef i ned$at t r i   goto  2H 

state  38 

modSspec  J  modSnature 

opt.IS.declarative$oart.«-END  opt. id. 

END   shift  59 
error 


id 
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state  39 


state  40 


oot  .  IS. dec  1  arat  i  veSoart .  :   IS«-dec  1  arat  i  veSpart 
opt  .use$c  1  ause.  :  «■     (164) 
USE   shift  37 
reduce  164 
opt .use$c 1 ause  .   goto  35 
useSclause   goto  36 
dec  1 arat i veSpart   goto  60 
» 

modSbody  :   mod$nature  BOOY   id*-IS   dec  1 arat i veSpart 


END  id  ; 

IS   shift  61 
error 
state  41 

suborogSspec     :       subprogSnat ure      designator 
oot  .formal  Jpart  .♦•opt  .RETURN. typeSmark. 

oot  .RETURN.  typeSmark.  :  «-     (177) 

RETURN   shift  63 
reduce  177 

opt .RETURN . typeSmark .   goto  62 
state  42 

opt .  formal  Spart .  J   formal  $oart«-     (176) 

•   reduce  176 
state  43 
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state  44 


state  45 


state  46 


state  47 


formalSoart  J   («-oara$decl  f  st  •  $  .oaraSdec  1  .  ) 
id   shift  66 

•  error 

idSl ist   goto  65 
paraSdecl   goto  64 

sel  ec  t  edScomp  :   name  •  i  d«-     (62) 
reduce  62 

predef i nedSat t r i  :   name  '  i  d«-     (63) 
reduce  63 

subDrogJar raySvar  :   name  (  exDr«-f  st .  S.expr . 

expr  :   expr«-log$op  rel 

fst.S.expr.  :  <-     (67) 

AND   shift  69 

OR   shift  70 

XOR   shift  71 

•  reduce  67 

f st . S.expr .   goto  67 
logSoo   goto  68 

expr  :  re)*-  (SO) 

reduce  80 
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state  48 


rel  :   si  mpl  e3expr<-oot  .  rel  a  1  5>oo.  s  i  mp  )  e$expr  . 

ret  :   si  mpl  e$expr«-opt  .NOT  .  IN  range 

rel  :   si  mpl  e$expr«-opt  .NOT .  IN  typeSmark  opt.constr. 

opt  .  rel  al  Sop.  s  i  mpl  e$exDr  .  :  *■     (70) 

opt. NOT.  :  «-     (72) 

IN   reduce  72 

NOT   shift  75 

/?   shift  77 

<=   shift  79 

>=   shift  81 

=   shift  76 

<   shift  78 

>   shift  80 

.   reduce  70 

opt . rel al Soo. s i mpl eSexpr  .   goto  72 

re  1 al $op   goto  74 

opt. NOT.   goto  73 


state  49 


simoleSexpr  :   opt  .unary$op.«-t  erm  f  st .  addi  ngSop.  t  erm. 
id   shift  21 
num   shift  89 
charSstr   shift  90 
(   shi  ft  91 


94 


.   error 

name   goto  87 

1 i  t   goto  85 

aggr   goto  86 

pri   goto  84 

subprogSar raySvar   goto  22 

selectedJcomp   goto  23 

predefi nedSat t r i   goto  24 

var      goto  88 

term   goto  82 

fac   goto  83 


state  50 


state  51 


state  52 


state  53 


oot .unarySop .  : 
reduce  82 

unarySop  :   ♦  *• 
.   reduce  106 

unarySop  :   -*■ 
reduce  107 

unarySop  :   NOT*- 
reduce  108 


unarySop*- 


(106) 


(107) 


(108) 


(82) 


state  54 
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fst.S.name.  :   fst.S.name.  /♦•name 

id   shi  ft  21 

.   error 

name   goto  92 

suborogSarraySvar   goto  22 

sel ect edScomp   goto  23 

predef i nedSat t r i   goto  24 
state  55 

visSlist  :   (  name  fst.S.name.  )«•     (203) 

.   reduce  203 
state  56 

suborogSbody   :    suborogSspec   IS   dec  1 arat i veSoart 
8EGIN«-seqSof$stmts  END  id  ; 

f  st  .stmt  .  :  «-     (112) 
reduce  1 12 

fst.stmt.   goto  9a 

seq$of$stmts   goto  93 
state  57 

fst.decl.  :   f  st  .dec  1  .«-dec  1 

dec  1 arat i veSpart  : 

fst.decl  .«-fst.body. 

fst.body.  :  «-     (168) 

error   shift  99 

TYPE   shift  101 


opt  .useSc 1 ause. 


96 


state  58 


id   shi  ft  66 
.   reduce  lo8 
dec  I   goto  95 
objSdecl   goto  97 
typeSdecl   goto  98 
i  dS list   goto  100 
fst.body.   goto  96 

sel  ect edScomp  :   name«-,  id 

predef i nedSat t r i  :   name*'  id 

subDrogSar raySvar  :   name*-(  expr  fst.J.expp.  ) 

uselc  1  ause  :   USE  name«-f  st  .  $  .name  . 

f  St  .S.name.  :  «•     (201 ) 

(   shift  32 
shift  30 

'   shift  31 

•   reduce  201 

fst.S.name.   goto  102 
state  59 

modSsoec  :   modSnature   id   opt . IS • dec  1 arat i veSpart 
END«-opt .  i  d. 

opt  •  i  d.  :  «■     (  151  ) 

id   shift  104 
reduce  151 
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oot  .id.   goto  103 
state  60 

opt  •  IS. dec  1  arat  i  veSpart  .   :    IS    dec  1  arat  i  veSpart*- 
(19a) 

reduce  194 
state  61 

modSbody  :   modSnature  BODY   id   IS<-dec  1  arat  i  veSpar t 
END  id  ; 

opt  .useSc  1  ause  .  :  <-     (164) 

USE   shift  37 

.   reduce  164 

opt .useSc 1 ause .   goto  35 

useSclause   goto  36 

dec  1 arat i veSpart   goto  105 
state  62 

subprogSspec     :       subprogSnature      designator 
opt . formal Spart .  opt  .RETURN,  t  ypeSmark  .♦■     (179) 

reduce  179 
state  63 

opt  .RETURN.  typeSmark.  :   RETURN«-t  ypeSmark 

id   shi  ft  21 
error 

typeSmark   goto  10b 

name   goto  107 
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state  6a 


state  65 


state  66 


state  67 


subprogSar ray$var   goto  22 
se 1 ect edScomp   goto  23 
predef i nedSat t r i   goto  2b 

formalSpart  :   (  paraSdec  1  <-f  st  .  S.paraSdec  \  .  ) 

f  st  .S.paraSdecl  .  :  *■     (183) 

reduce  183 

f st  .$.para$dec 1 .  goto  108 

paraSdecl  :   id$list«-:  mode  tyoeSmark  oot.S.expr. 
:   shift  109 

•  error 

id$l  i  st  :   id«-f  st  .$. i  d. 

f  st  .$.  id.  :  «-     ( la) 

reduce  14 
f st  .$. i  d.   goto  1 1 0 

fst.S.expr.  :   f  st  .  5  .expr  .*-,    expr 
subprogSarraySvar  :   name  (  expr  fst.S.expr.*-) 
)   shift  112 
,   shi  ft  111 

•  error 


state  68 


99 


expr  :   expr  1ogSop«-re1 
ODt. unary  Sod.  :  «■     (81) 
NOT   shift  53 
t   shift  51 
-   shift  52 

reduce  81 
simoleSexpr   goto  48 
rel   goto  1  1  3 
opt .unarySop.   goto  49 
unarySop   goto  50 


state  69 


state  70 


state  71 


logSoo  :  AND«-     (94) 

reduce  94 

logSoo  :  OR*     (95) 

reduce  95 

logSoo  :  XOR*-     (96) 

reduce  96 


state  72 


state  73 


rel  :   simoleSexpr  opt .  rel  a  1  Sop  .  s  i  mp  1  eSexpr  .<- 
.   reduce  76 

rel  :   simpleSexpr  opt. NOT. ♦•IN  range 


(7b) 


100 


rel  l       simpleBexpr  opt.NQT.«-IN  typeSmark  opt.constr 
IN   shift  1 1  a 
error 


state  7a 


opt . rel al $op . si mpl e$expr  .  : 
oot .unarySoo.  :  **     (81) 
NOT   shift  53 
+   s  h  i  f  t  5 1 

shift  52 

reduce  81 
simoleJexpp   goto  115 
opt .unarySop.   goto  49 
unarySoo   goto  50 


state  75 


state  76 


state  77 


state  78 


opt. NOT.  :   NOT*-     (73) 
reduce  73 

relalSoo  :   =«-     (97) 
reduce  97 

relalSop  :   /=«-     (98) 
.   reduce  98 

relalSop  :   «■     (99) 


7 


relalSop«-simp1e$expr 


101 


state  79 


state  80 


state  81 


state  82 


state  83 


state  8a 


reduce  99 

relalSoo  :   <=<-     (100) 
reduce  100 

relalSop  :   >«-     (101) 
.   reduce  101 

relalSop  :   >  =  «-     (102) 
reduce  102 

simpleSexpr  :   opt  .  unarySop  .  t  erm«-f  st  .  addi  nqSop.  t  erm 
fst .addi ngSop. term.  :  «•     (83) 

reduce  83 
fst .addi ngSop. term.   goto  116 

i 

term  :   f ac*f st .mul t Sop . f ac . 
fst.multSop.fac.  :  *     (86) 

reduce  8b 
fst.multSop.fac.   goto  117 

fac  :   pri«-     (89) 
reduce  89 


state  85 


102 


state  86 


state  87 


pri  :   1  i  t«-     (90) 
reduce  90 

pri  :   aggr*-     (91) 
reduce  91 

sel  ec t edScomp  :   name*-,  id 

prede  f  i  nedSat  t  r  i  :   name*-'  id 

var  :   name*-.  ALL 

suborog$array$var  :   name*-(  expr  fst.S. expr. 

pri  :   name*-     (92) 

(   shift  32 

shi  ft  118 
■   shift  31 

reduce  92 


state  88 


pp  i  :   var*- 
•   reduce  93 


(93) 


state  89 


state  90 


lit  :   num«-     (64) 
reduce  o4 

lit  :   charSst  r«-     (65) 
reduce  65 
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state  91 


state  92 


aggr  :   («-comp$assoc  f  st  •  $  .compSassoc  .  ) 

OTHERS   shift  123 

id   shi  ft  21 

num   shift  89 

charistr   shift  90 

(   shi  ft  91 

•   error 

typeSmark   goto  125 

name   goto  124 

1  i  t   goto  85 

discSrange   goto  122 

compSassoc   goto  119 

aggr   goto  86 

restrSchoice   goto  120 

pri   goto  121 

subprogSar ray Svar   goto  22 

se I ec t edScomp   goto  23 

predef i ned$at t r i   goto  24 

var   goto  88 

sel ec t edScomp  :   name*-,  id 
predef  i  nedSat  t  r  i  :   name*-'  id 
suborogSarray Svar  :   name**(  expr  fst.S.expr 


104 


fst.S.name.  :   fst.S.name.  i    name*-     (202) 
(   shift  32 
shift  30 
♦   shift  31 
reduce  202 
state  93 

subprogSbody  :   suborogSspec  IS  dec  1 arat i veSpart  8E 
GIN  seqSof  $stmts«-END  id  ; 
END   shift  126 


state  9a 


error 

fst.stmt.  :   f  st  .stmt  ••-stmt 

seqSofSstmts  :   fst.stmt.*- 

opt .  i  terSspec.  :  «■     (148) 

error   shift  131 

ASSERT   shift  147 

CASE   shift  149 

EXIT   shift  144 

FOR   shift  152 

GOTO   shift  146 

IF   shift  148 

LOOP   reduce  148 

NULL   shift  138 

RETURN   shift  145 


(114) 


105 


WHILE   shift  153 
id   shi  ft  21 
<<   shift  130 
reduce  1  1  4 
name   goto  143 
subprogSarraySvar   goto  22 
sel ec t edScomo   goto  23 
predef i ned$at t r i   goto  24 
var   goto  142 
stmt   goto  127 
simoleSstmt   goto  128 
compoundSstmt   goto  129 
assi gnment $st mt   goto  132 
subDPogSca 11 $st mt   goto  133 
exitSstmt   goto  134 
returnSstmt   goto  135 
gotoSstmt   goto  136 
assertSstmt   goto  137 
ifSstmt   goto  139 
caseSstmt   goto  140 
loopSstmt   goto  141 
opt • i t erSspec .   goto  150 
iterSspec   goto  151 


state  95 


106 


state  96 


fst.decl.  :   fst.decl.  dec1«- 
reduce  167 

fst.body.  :   f  st  .body  .«-body 


(167) 


dec  1 arat i vetoart    : 
fst.body.«-     (170) 

opt .  vi  sSrest  r  i  c  t  i  on  .  :  «■     (2) 

BEGIN   reduce  170 

END   reduce  170 

RESTRICTED   shift  a 
reduce  2 

opt • vi sSrest r i c t i on  .   goto  155 

v i sSrest ri ct i on   goto  3 

body   goto  154 
state  97 

decl  :   obj$dec1«-     (6) 
reduce  6 
state  98 

decl  :   typeSdecl*     (7) 
reduce  7 
state  99 

decl  :   error*-; 

;   shift  156 
error 


oot .useSc 1 ause  . 


f st .dec ) 
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state  100 

objSdecl  :   id$list«-:  opt  .  CONSTANT .  type  oot.i.expr. 
t 

l       shift  157 
error 
state  101 

typeSdecl  :   TYPE«-id  IS  typeSdefn  ; 

id   shift  158 

.   error 
state  102 

fst.S.name.  :   f  st  .$.name.«*#  name 

useSclause  :   USE  name  f  s  t  .  $  .  name  .<-     (204) 

,   shift  54 

•   reduce  204 
state  103 

modSspec  :   modSnature   id   opt . IS .dec  1 arat i veSpart  . 
END  opt.id.*-     (195) 
reduce  195 
state  104 

opt. id.  :   id«-     (152) 
reduce  152 
state  105 

modSbody     :       modSnature      BODY      id      IS 
decl  arat  i  ve$part«-END  id  ; 
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END   shift  159 
error 
state  106 

opt  .RETURN.  typeSmark.  :   RETURN  typeSmark<- 
reduce  178 
state  107 

typeSmark  :  name<-  (22) 
se 1 ec tedScomp  :  name*,  id 
predef i nedSat t r i  :   name*'  id 


(178) 


name«-(  expr  fst.S.expr.  ) 


subDrogSarraySvar  : 
(   shift  32 

shift  30 
'   shift  31 

reduce  22 
state  108 

f st . S.paraSdec 1  .  :   f  st  •  $  .paraSdec  1  .«->  paraSdecl 
formalSpart  :   (  paraSdecl  f  st  .  $  .paraidec  1  .«-) 
)   shift  161 
,   shift  160 

error 
state  109 

paraSdecl  :   idSlist  :«-mode  typeSmark  opt. S.expr. 
opt. IN.  :  <-     (187) 
IN   shift  165 
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OUT   shift  164 

reduce  187 
mode   goto  162 
opt. IN.   goto  163 
state  110 

fst.S.id.  :   fst.$.id.*-r  id 
idSlist  :   id  fst.S.id.*-     (16) 
,   shi  ft  166 

•  reduce  16 
state  1 1 1 

fst.S.expr.  :   fst.S.expr.  ,«-expr 
opt  .unarySop .  :  *•     (81) 
NOT   shift  53 

•  shift  51 
-   shift  52 

•  reduce  81 
expr   goto  167 
simpleSexpr   goto  48 
re)       goto  47 

oot .unarySop.   goto  49 

unarySop   goto  50 
state  112 

subprog$array$var  :    name   (   expr 
(69) 


f  st  .  $  ,expr  .   )  *■ 
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reduce  69 
state  1 13 

expr  :   expr  logSop  re1«-     (79) 
reduce  79 
state  114 

pel  :   simoleSexpr  opt. NOT.  IN*-range 

re)  :   simoleJexpr  opt. NOT.  IN«-t  yoeSmark  opt.constr. 

id   shift  171 

num   shift  89 

charSstr   shift  90 
error 

typeSmark   goto  169 

name   goto  107 

range   goto  168 

rangeSia   goto  170 

1 i  t   goto  172 

subprog$array$var   goto  22 

se 1 ec tedScomp   goto  23 

predef i nedSat t r i   goto  24 
state  115 

opt . rel al $op. s i mpl e$expr .  : 
(71) 

reduce  71 
state  1 lo 


relalSop   s  i  mpl  e$expr«- 
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f  st  .addi  ngSop.  t  erm.  :   f  s  t  .addi  ng$op  .  t  erm  .«-add  i  ngSop 


opt .unarySop . 


term 

s  i  mo  1 eSexpr        : 
f  st  .addi  ngSoo.  term. ♦■     (85) 

&   shift  176 

-►   shift  17a 

-   shift  175 
reduce  85 

addingSop   goto  173 
state  117 

f  st  .mul  t  Sop.  f  ac  .  :   f  st  .mul  t  Sop  .  f  ac  .«-mul  t  Sop  fac 

term  :   fac  f  st  .mul  t  Soo.  f  ac  .*•     (88) 

MOD   shift  180 

*   shift  178 

/   shkfu  179 

.   reduce  88 

mul t  Sop   goto  1 77 
state  118 

se  1  ect  edScomp  :   name  .♦-id 

var  :   name  .«-ALL 

ALL   shift  181 

id   shift  44 


term 


error 
state  119 


112 


aggr  :   (  como$assoc<-f  st  .  $.comp$assoc  .  ) 

f  st  .S.compSassoc  .  :  <-     (41) 
reduce  41 

f st . S.comoSassoc .   goto  182 
state  120 

compSassoc  :   rest  r$choi  ce*-fst  .$. choi  ce.  =>  expr 

f st  .$. choice.  :  «■     (44) 
reduce  44 

fst . S.choi ce.   goto  183 
state  121 

comoSassoc  :   pr i *oot .. 1 st .$ .choi ce. .$. expr . 

opt ..  1  st  .$  .choi  ce.  .$  .expr  .  :  «■     (46) 

f  st  .$. choice.  :  «-     (44) 

)   reduce  46 

t       reduce  46 

.   reduce  44 

f st  .  $ .choi ce.   goto  185 

opt .. 1 st .$ .choi ce ..$. expr .   goto  184 
state  122 

restrSchoice  :   disc$range«-     (50) 
reduce  50 
state  123 

rest  rSchoi  ce 
reduce  51 


OTHERS* 


(5q) 
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state  12a 

type$mark  :   name<-     (.22) 

se 1 ect edScomp  :   name*-,  id 

predef i ned$at t r i  :   name*-'  id 

var  :   name*-.  ALL 

subprog$array $var  :   name<-(  expr  fst.S.expr.  ) 

pri  :   name*-     (92) 

RANGE   reduce  22 

(       shift  32 

shi  ft  1  18 
'   shift  31 
reduce  92 
state  125 

discSrange  :   t  ype$mark*-RANGE  range 
RANGE   shift  186 
error 
state  126 

subprogSbody  :   subprogSspec  IS  dec  1 arat i veSpart  BE 
GIN  seq$of$stmts  END*-id  ; 
id   shift  187 
error 
state  127 

fst.stmt.  :   fst.stmt.  stmt*-     (113) 
reduce  113 
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state  128 

stmt  :   simple$stmt«-     (115) 
reduce  1 15 
state  129 

stmt  :   compoundSstmt «-     (116) 

•  reduce  1 16 
state  130 

stmt  :   <<«-id  >>  stmt 
id   shift  188 
error 
state  131 

stmt  :   error*-; 
;   shift  189 

•  error 
state  132 

simoleSstmt  :   ass  i  gnment  $st  mt  «•     (119) 
reduce  1 19 
state  133 

simpleSstmt  :   subprogSca  1  1  $s  tmt«-     (120) 
reduce  120 
state  134 

simpleSstmt  :   exit$stmt«-     (121) 

•  reduce  121 
state  135 
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simpleSstmt  :   ret  u  rn$st  mt  «-     (122) 

,   reduce  122 
state  136 

simpleSstmt  :   goto$stmt«-     (123) 
reduce  123 
state  137 

simpleSstmt  :   assert  Sstmt  «■     (12a) 

•   reduce  124 
state  138 

simpleSstmt  :   NULL*-; 

;   shift  190 
error 
state  139 

compound$stmt  :   if$stmt«-     (126) 

.   reduce  126 
state  140 

compound$stmt  :   case$stmt<-     (127) 
reduce  127 
state  141 

CompoundSstmt  :   1oop$Stmt«-     (128) 
reduce  128 
state  142 

assi  gnment  Ssttit  :   var«-:  =  expr  ; 

:?   shift  191 


1  16 


error 
state  143 

se  1  ec  t  edScomp  :   name*-,  id 

predef i ned$at t r i  :   name*-'  id 

var  :   name*-.  ALL 

subprog$ar ray $var  :   name*-(  expr  fst.S.expr. 

ass  i  gnment  $st  mt  :   name<-:  =  expr  ; 

subprogScal  1  $st  mt  :   name**; 

:=   shift  192 

;   shift  193 

(   shift  32 
shift  118 

'   shift  31 

.   error 
state  144 

exitSstmt  :   EXlT«-oot  .  i  d.  oot  .  WHEN  .cond.  ; 

oot .  id.  :  «-     ( 151 ) 

id   shi  ft  104 
reduce  151 

opt .id.   goto  1 94 
state  145 

returnSstmt  :   RETURN*-oot  .  expr .  ; 

opt. expr.  :  «■     (132) 

opt  .unary Sop.  :  *     (81) 
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NOT   shift  53 
;   reduce  132 

♦  shi  ft  51 

-  shift  52 

•  reduce  81 
expr   goto  196 

s i mp 1 e$exor   goto  48 

rel   goto  47 

opt.unary$op.   goto  49 

unarySop   goto  50 

opt .expr .   goto  195 
state  146 

gotoSstmt  :   GOTOHd  ; 

id   shift  197 

.   error 
state  147 

assert  $stT»t  :   ASS£RT«-cond  ; 

OPt  .unary $op.  :  «■     (81) 

NOT   shift  53 

*  shi  ft  51 

-  shift  52 

•  reduce  81 
expr   goto  199 
simdeSexpr   goto  48 
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re  1   goto  47 

opt.unarySop.   goto  49 

unarySop   goto  50 

cond   goto  198 
state  148 

ifSstmt  :  IF«-cond  THEN  seqSofSstmts 
f st .ELSIF. cond. THEN. seqSof Sstmts.  opt  .ELSE . seqSo f Sst mt s .  END 
IF  ; 

opt.unarySop.  :  «■     (81) 

NOT   shift  53 

t   shi  ft  51 

-   shift  52 
reduce  81 

expr   goto  199 

simoleSexpr   goto  48 

rel   goto  47 

opt.unarySop.   goto  49 

unarySop   goto  50 

cond   goto  200 
state  149 

caseSstmt  :  CASE*-expr  OF 

fst .WHEN. choi ce. . 1st .S.choi ce. ,$. seqSofSstmts.  END  CASE 

opt.unarySop.  :  «-     (81) 

NOT   shift  53 
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+   shi  ft  51 

-   shift  52 
reduce  81 

expr   goto  201 

simpleSexpr   goto  48 

pel   goto  47 

opt tunarySop.   goto  49 

unarySop   goto  50 
state  150 

loopistmt  :   opt  .  i  t  erSspec  •♦•bas  i  cSl  oop 

LOOP   shift  203 

.   error 

basicSloop   goto  202 
state  151 

opt .  i  terSspec  .  :   iter$spec<-     (149) 
reduce  149 
state  152 

iterispec  :   F0R**1  oopSpara  IN  opt  .REVERSE .  discSrange 

id   shift  205 
error 

loopSpara   goto  204 
state  153 

iterSspec  :   WHILE«*cond 

opt  .unarySop.  :  «-     (81) 
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NOT   shift  53 
♦   shi  ft  51 

shift  52 

reduce  81 
expr   goto  199 
simoleSexpr   goto  48 
rel   goto  47 
opt.unarySop,   goto  49 
unarySop   goto  50 
cond   goto  206 
state  154 

fst.body.  :   fst.body.  body*-     (169) 

reduce  169 
state  155 

body  :   opt .  vi  s$rest  r  i  ct  i  on  ,«-uni  t  Sbody 
FUNCTION   shift  18 
PACKAGE   shift  17 
PROCEDURE   shift  19 

error 
unitSbody   goto  207 
subprogSbody   goto  11 
modSspec   goto  12 
modSbody   goto  13 
subprogSspec   goto  14 
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subproginat ure   goto  16 

modSnature   goto  15 
state  156 

decl  :   error  ;  <-     (8) 

,   reduce  8 
state  157 

objSdecl  :   idSlist  :«-opt  .CONSTANT .  type  opt.S.expr.  ; 

opt  .CONSTANT.  :  ♦•     (9) 

CONSTANT   shift  209 
reduce  9 

opt .CONSTANT.   goto  208 
state  158 

typeSdecl  :   TYPE  id<-IS  typeSdefn  ; 

IS   shift  210 

•   error 
state  159 

modSbody  :   modSnature  BODY  id   IS   dec  1 arat i veSpar t 
END* id  ; 

id   shi  ft  21  1 
error 
state  160 

f st . S .paraSdec 1  •  : 

id   shift  66 


f  s t  .$.para$dec  1  .  /«-para$decl 


error 
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id$1 i  st   goto  65 

paraSdecl   goto  212 
state  161 

formalSpart   :    (   paraSdecl   f  st  •  $  .para$dec  1  •    )  «* 
(185) 

•   reduce  185 
state  162 

paraSdecl  :   i  dS list  :  modest ypeSmark  oot.S.expr, 

id   shi  ft  21 
error 

typeSmark   goto  213 

name   goto  107 

subprogSar raySvar   goto  22 

sel ec tedScomp   goto  23 

predef  i  ned$at  t  r  i   goto  2<4 
state  163 

mode  :   opt. IN.*-     (189) 
reduce  189 
state  164 

mode  :   0UT«-     (190) 

.   reduce  190 
state  165 

opt. IN.  :   IN*     (188) 

mode  :   IN«-0UT 
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OUT   shift  214 
reduce  188 
state  166 

fst.S.id.  :   fst.S.id.  #«-id 
id   shift  215 

•  error 
state  167 

fst.S.expr.  :   fst.S.expr.  t    expr*-  (68) 

expr  :   expr«-log$op  rel 
AND   shift  69 
OR   shift  70 
XOR   shift  71 

•  reduce  68 
logSoo   goto  68 

state  168 

rel  :   simpleSexpr  opt. NOT.  IN  range*     (77) 
reduce  77 
state  169 

rel  :   simpleSexpr  opt. NOT.  IN  t  ype$mark«-opt  .const  r . 

opt.constr.  :  «-     (74) 

RANGE   shift  219 

•  reduce  74 
constr   goto  217 
rangeSconstr   goto  218 
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oot.constr.   goto  216 
state  170 

range  :   range$id«-..  siopleSexpr 

..   shift  220 
error 
state  171 

rangeSid  :   i  d*-     (27) 

name  :   i  d«-     (58) 
reduce  27 

=>   reduce  27 

!   reduce  27 
reduce  58 
state  172 

rangeSi  d  :   lit*     (28) 

•   reduce  28 
state  173 

f st .addi ng$op. t ero .       : 
addi  ng$op«-t  erm 

id   shi  ft  21 

num   shift  89 

charSst  r   shi  ft  90 

(   shift  91 


fst .addi  ng$op. term 


•   error 
name   goto  87 
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1 i  t   goto  85 

aggr   goto  86 

pri   goto  84 

subprog$array$var   goto  22 

se 1 ec t edScomp   goto  23 

predef i ned$at t r i   goto  24 

var   goto  88 

term   goto  221 

fac   goto  83 
state  17a 

addingSop  :   ♦  «•     (103) 
reduce  103 
state  175 

addingSop  :   -«■     (104) 
reduce  104 
state  17o 

addingSop  :   &<-     (105) 
reduce  105 
state  177 

f  st  .mul  t  Sop.  f  ac  .  '•       f  st  .mul  t$op.  f  ac  .  mul  t  $op*-f  ac 

id   shi  ft  21 

num   shift  89 

charSst  r   shi  ft  90 

(   shift  91 
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.   error 

name   goto  87 

1 i  t   goto  85 

aggr   goto  86 

pri   goto  84 

suborog$array$var   goto  22 

sel ec t edScomp   goto  23 

predef i nedSat t r i   goto  24 

var      goto  88 

fac   goto  222 
state  178 

multSop  :   *«-     (109) 
reduce  109 
state  179 

multSop  :   /«■     (110) 

•   reduce  110 
state  180 

multSoo  :   MOD*     (111) 
reduce  1 1 1 
state  181 

var  :   name  .  ALL*-     (66) 
reduce  66 
state  182 

f  st .  $.comp$assoc  .  :   f  st  .  $  .compSassoc  .♦-/  compSassoc 
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aggr  :   (  comoSassoc  f  st .  $  .compSassoc  .<-) 

)   shift  224 

,   shift  223 

•   error 
state  183 

f  st  •  S.cho  i  ce.  :   f  st  .S.choi  ce.«- !  choice 

compSassoc  :   restrSchoice  f  st  •  $  .choi  ce  .<-  =  >  expr 

=>   shift  226 

!   shift  225 
error 
state  184 

compSassoc  :   pri  opt . .  1  st  •  $  .cho  i  ce  .  •  $  .exor  .«-     (49) 
reduce  49 
state  185 

f  st  .S.choi  ce.  :   fst  .S.choi  ee.«- !  choice 

oot  ..  1  st .  S.choi  ce.  .S.expr.  :   f  st  .$  .cho  i  ce  .«•?>  expr 

=>   shift  227 

!   shift  225 
error 
state  186 

discSrange  :   typeSmark  RANGE«-range 

id   shift  229 

num   shift  89 

charSstr   shift  90 
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.   error 

range   goto  228 

range$id   goto  170 

I i  t   goto  172 
state  187 

subprogSbody  :   subprogSspec  IS  dec  1 arat i veSpart  BE 
GIN  seg$of Sstmts  END  id*-; 

;   shift  230 
error 
state  188 

stmt  :   <<  id*->>  stmt 

>>   shift  231 
error 
state  189 

stmt  :   error  ; «-     (118) 
reduce  1 18 
state  190 

simpleSstmt  :   NULL  ;  «-     (125) 
reduce  125 
state  191 

ass  i  gnment  Sstmt  :   var  :=«-expr  ; 

opt.unarySop.  :  *■     (81) 

NOT   shift  53 

+   shift  51 
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-  shift  52 
reduce  81 

expr   goto  232 
9 i mDl eSexpr   goto  48 
rel   goto  47 
opt .unarySop.   goto  49 
unary$op   goto  50 
state  192 

assi gnment $st mt  :   name  :=*-expr    ', 
opt .unarySoo.  :  *■  (81) 

NOT   shift  53 

♦  shi  ft  51 

-  shift  52 
reduce  81 

expr   goto  233 
simpleSexpr   goto  48 
rel   goto  47 
opt .unarySoo.   goto  49 
unarySoo   goto  50 
state  193 

suborogScal  1  Sstmt  :   name  ?«■     (131) 

•  reduce  131 
state  19a 

exitSstmt  :   EXIT  opt  .  i  d.«-opt  .  «HEN  .cond.  ', 
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opt  .WHEN. cond.  :  <-     (159) 
WHEN   shift  235 

•  reduce  159 

opt .WHEN. cond.   goto  23a 
state  195 

returnSstmt  :   RETURN  opt.expr.*-; 
;   shift  336 

•  error 
state  196 

expr  :   expr«-log$op  rel 

opt.exor.  :   expr**     (133) 

AND   shift  69 

OR   shift  70 

XOR   shift  71 
reduce  133 

logSop   goto  68 
state  197 

gotoSstmt  :   GOTO  id*-; 

;   shift  237 
error 
state  198 

assertSstmt  : 

;   shift  238 


ASSERT  cond*-; 


•   error 
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state  199 

exor  :   expr«-log$op  rel 
cond  :   expr«-f  st  .condSext  . 
f st .condSext .  :  «■     (140) 
AND   shift  69 
OR   shift  70 
XOR   shift  71 

•  reduce  140 
1 og$oD   goto  68 
f st .condSex t  .   goto  239 

state  200 

ifSstmt  :  IF  cond^THEN  seqSof $st mt s 
f st .ELSIF. cond. THEN. seqSofSstots.  opt .ELSE . seqSo f Sst mt s .  END 
IF  ? 

THEN   shift  240 

•  error 
state  201 

exor  :   expr*-l  og$op  rel 

caseSstmt  :  CASE  expr«-OF 

fst .WHEN. choice. . 1st .$. choice. . $. seqSof Sstmt s .  END  CASE 
AND   shift  69 
OF   shift  241 
OR   shift  70 
XOR   shift  71 
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error 
log$oo   goto  68 
state  202 

loopSstmt  :   opt  .  i  t  erSspec  •  basicSloop**     (150) 
.   reduce  150 
state  203 

basic$loop  :   L00P«-seq$of  $st  mt  s  END  LOOP  opt. id.  ; 
f  st  .stmt  .  :  «-     ( i  12) 

reduce  112 
fst.stmt.   goto  94 
seq$of$stmts   goto  242 
state  204 

iterSspec  :   FOR  1  oop$para«-IN  opt. REVERSE.  discSrange 
IN   shift  243 
error 
state  205 

loopSpara  :   i  d«-     (158) 
reduce  158 
state  206 

iterSspec  :   WHILE  cond*-     (157) 
reduce  157 
state  207 

body  :   opt  •  v  i  sSrest  r  i  c  t  i  on  .  unit$body«-     (171) 
•   reduce  171 
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state  208 

objSdecl  :   idSHst  :  opt  .CONSTANT  ,«-t  yoe  opt.S.expr.  ; 
id   shift  21 

•  error 

type   goto  244 

typeSmark   goto  245 

name   goto  107 

suborogSar ray Svar   goto  22 

se 1 ec t edScomp   goto  23 

predef i ned$at t r i   goto  24 
state  209 

opt .CONSTANT.  :   CONSTANT*     (10) 
reduce  10 
state  210 

typeSdecl  :   TYPE  id  IS«-t ypeSdef n  ; 

ARRAY   shift  253 

RANGE   shift  219 

RECORD   shift  254 

(   shift  251 

•  error 

typeSdefn   goto  246 
enumSt ypeSdef n   goto  247 
intStypeSdef n   goto  248 
arrayStypeSdef n   goto  249 
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recordSt ypeSdef n   goto  250 

rangeSconstr   goto  252 
state  21  1 

modSbody  :   modSnature  BODY  id   IS   dec  1 arat i veSpart 
END  id«-; 

;   shift  255 

.   error 
state  212 

f  st  .  S.paraSdec  )  .  :    f  st  .  $  .oaraSdec  1  .  t       paraSdecl*- 
(184) 

reduce  18a 
state  213 

paraSdecl  :   idSlist  :  mode  t  ypeSmar  k«-opt  .J.expp . 

opt  .S.expr.  :  «-     (11) 

:=   shift  257 
reduce  1 1 

opt. S.expr.   goto  256 
state  214 

mode  :   IN  0UT«-     (191) 
reduce  191 
state  215 

fst.S.id.  :   fst.S.id.  ,    i  d«-     (15) 

.   reduce  15 
state  216 
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rel    :     si^pleSexpr    opt. NOT. 
oot  .const  r.*-     (78) 
reduce  78 
state  217 

oot.constr.  :   constr<-     (75) 

•  reduce  75 
state  218 

constr  :   rangeSconst  r«-     (23) 
reduce  23 
state  219 

range$constr  :   RANGE«*range 

id   shift  229 

num   shift  89 

charSstr   shi  ft  90 
error 

range   goto  258 

rangeSid   goto  170 

1 i  t   goto  172 
state  220 

range  :   rangeSid  .  .«-si  mpl  e$expr 

oot  .unarySop.  :  *■     (81) 

NOT   shift  53 

♦  shift    51 
-      shift    52 


IN 


t  ypeSmarlc 
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reduce  81 

si mDl e$expr   goto  259 

opt .unary$op.   goto  49 

unarySop   goto  50 
state  221 

f st .addi ng$op. t erm.  :   f st . addi ng$op. t erm  .  addingioo 
term*-     (84) 

reduce  84 
state  222 

f st .mul t $op. f ac  .  :    f  st  .mul  t  Sop.  f  ac  .   multSop   fac*- 
(87) 

•  reduce  87 
state  223 

f st .$ .compSassoc  .  :   f s t  .  $  .compiassoc .  /  <-comp$assoc 

OTHERS   shift  123 

id   shi  ft  21 

num   shift  89 

charSst  r   shi  ft  90 

(   shift  91 

•  error 

typeSmark   goto  125 
name   goto  124 

1 i  t   goto  85 
discSrange   goto  122 
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comoSassoc   goto  260 

aggr   goto  86 

restr$choice   goto  120 

pri   goto  121 

subprogSar ray$var   goto  22 

sel ectedScomo   goto  23 

predef i ned$at t r i   goto  24 

var   goto  88 
state  22a 

aggr  '•        (  compSassoc  f  st  .  $. compSassoc  .  )*■ 
reduce  43 
state  225 

f  st  .S.choi  ce.  :   f  st  .S.choi  ce  .  !«-choice 

OTHERS   shift  123 

id   shift  171 

num   shi  ft  89 

charSst r   shi  ft  90 
error 

typeSmark   goto  125 

name   goto  107 

rangeSid   goto  262 

1 i  t   goto  172 

discSrange   goto  122 

choice   goto  261 


(43) 
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restrSchoice   goto  263 

suborogSarray Svar   goto  22 

sel ec t edScomp   goto  23 

ppedef i nedSat t pi   goto  24 
state  226 

compSassoc  :   restrSchoice  f  st .  $  .cho  i  ce  .  =  >«-expp 

oDt  .unarySoo.  :  «•     (31) 

NOT   shift  53 

♦  shift  51 
shift  52 
reduce  81 

expp   goto  264 

simpleSexpp   goto  48 

pel   goto  47 

opt.unarySoo.   goto  49 

unapySop   goto  50 
state  227 

opt . . 1 st . $ .choi ce . . $ .exop .  :   f  s  t  .5  .choi  ce.  =>«-expp 

opt  .unapy $oo.  :  «•     (81) 

NOT   shift  53 

+   shift  51 

-  shift  52 
reduce  81 

expp   goto  265 
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simoleSexpr   goto  48 

rel   goto  47 

opt .unary$oo.   goto  49 

unaryJoo   goto  50 
state  228 

discSrange  :   typeimark  RANGE  range*-     (40) 
reduce  40 
state  229 

rangeSid  :   i  d«-     (27) 
reduce  27 
state  230 

subProgSbody  :   subprogSsoec  IS  dec  1 arat i veSpart  BE' 
GIN  seqSofistmts  END  id  ;  «•     (192) 

reduce  192 
state  231 

stmt  :   <<  id  >>«-stmt 

opt .  i  terSspec.  :  «•     (148) 

error   shift  131 

ASSERT   shift  147 

CASE   shift  149 

EXIT   shift  144 

FOR   shift  152 

GOTO   shift  14b 

IF   shift  148 
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NULL   shift  133 
RETURN   shift  145 
WHILE   shift  153 
id   shift  21 
<<   shift  130 
.   reduce  148 
name   goto  143 
subDrogSarraySvar   goto  22 
selectedJcomp   goto  21 
predef i ned$at t r i   goto  24 
var   goto  142 
stmt   goto  266 
simoleSstmt   goto  128 
compoundSst mt   goto  129 
ass i gnment $st mt   goto  132 
subprogScal 1 Sstmt   goto  133 
exitSstmt   goto  134 
returnSstmt   goto  135 
gotoSstmt   goto  136 
assertSstmt   goto  137 
i  f Sstmt   goto  139 
caseSstmt   goto  140 
loooSstmt   goto  141 
opt . i t erSspec .   goto  150 
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i  terSspec   goto  1 51 
state  232 

expr  :   expr«-log$op  rel 

assi gnment Sstmt  :   var  :=  expr*-; 

AND   shift  69 

OR   shift  70 

XOR   shift  71 

;   shift  267 
error 

log$oo   goto  68 
state  233 

expr  :   expr«-log$op  rel 

ass  i  gnment  $st  mt  :   name  :=  expr*-; 

AND   shift  69 

OR   shift  70 

XOR   shift  71 

;   shift  268 
error 

logJoo   goto  68 
state  234 

exitSstmt  :   EXIT  opt. id.  opt  .  WHEN  ,cond.«- ; 

;   shift  269 

.   error 
state  235 
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oot  .  WHEN. cond.  :   WHEN«-cond 

opt.unarySop.  :  «■     (81) 

NOT   shift  53 

+   shift  51 

-   shift  52 

•   reduce  81 

expr   goto  199 

simpleSexpr   goto  48 

rel   goto  47 

opt .unarySoo.   goto  49 

unarySop   goto  50 

cond   goto  270 
state  236 

returnSstmt  :   RETURN  opt. expr.  ;«-     (134) 
reduce  134 
state  237 

gotoSstmt  :   GOTO  id  ;«-     (162) 
reduce  162 
state  238 

assertSstmt  :   ASSERT  cond  ;«-     (163) 
reduce  163 
state  239 

f  st  .condSex  t .  :   f  st  .condSext  .«-cond$ex  t 


cond  :   expr  f  st  .condSex  t  .«- 


(142) 
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AND. THEN   shift  272 
OR. ELSE   shift  273 

reduce  142 
condSext   goto  271 
state  240 

ifSstmt      :       IF 


cond 


THEN«-sea$of  Sstmt  s 


f st .ELSIF.cond. THEN. seqSof Sstmts.  ODt .ELSE . seqSof $st mt s .  END 
IF  ; 

f  st  .stmt  .  :  <-     (112) 

.   reduce  1 12 

fst.stmt.   goto  94 

seqSof Sstmts   goto  274 
state  241 

caseSstmt  :  CASE  expr 

0F«-fst  .WHEN. choice.  .  1st  .$. choice.  .$. seqSof  Sstmts.  END  CASE 

fst  .WHEN. choi  ce.  .  1  st  .S.choi  ce.  .S. seqSof  Sstmts  .   :  *- 
(145) 

•   reduce  145 

fst. WHEN. choice.. 1st. $. choice. .S.seqSofSstmts.   goto 
275 
state  242 

basicSloop  :   LOOP  seqSof $stmts«-END  LOOP  opt. id.  ? 

END   shift  276 

.   error 


144 


state  243 

iterSspec  :   FOR  loopSpara  IN«-oPt  .REVERSE .  discSrange 

OPt. REVERSE.  :  «-     (154) 

REVERSE   shift  278 
reduce  154 

opt. REVERSE.   goto  277 
state  244 

objSdecl  :   idSlist  :  opt  .CONST  ANT  .  t  ype«-opt .  S.expr  .  ; 

opt  .S.expr.  :  «-     (11) 

:=   shift  25  7 

•  reduce  1 1 
opt.S.expr.   goto  279 

state  245 

type  :   type$mark«-     (17) 

•  reduce  17 
state  24b 

typeSdecl  :   TYPE  id  IS  type$defn«-; 
;   shi  ft  280 
error 
state  247 

typeSdefn  :   enum$t  ypeSdef  n«-     (18) 
reduce  18 
state  248 

typeSdefn  :   i  nt  $t  ypeSdef  n«-     (19) 


145 


reduce  19 
state  249 

typeSdefn  :   arraySt  yoeSdef  n«-     (20) 
reduce  20 
state  250 

typeSdefn  :   recordSt  ype  Jdef  n«-     (21) 

.   reduce  21 
state  251 

enumSt  yoeSdef  n  :   («-enum$lit  t     f  st  .enumS  1  i  t .  ) 

id   shift  282 

charSstr   shift  283 
error 

enumS lit   goto  28 1 
state  252 

i nt $t ypeSdef n  :   rangeSconst  r<-     (34) 
reduce  34 
state  253 

arraySt  ypeSdef  n  :   ARRAY«-(  index  fst.S. index. 
typeSmark  ; 

(   shift  284 

.   error 
state  254 

recordSt yoeSdef n  : 

f  st  .ob  j  $dec  1  .  :  «- 


)   OF 


RECORD«-comp$l  ist  END  RECORD 
(55) 
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reduce  55 

como$ I ist   goto  285 

f st .ob j$dec 1 .   goto  286 
state  255 

modSbody  :   modSnature  800Y  id   IS   dec  1 arat i veSpart 
END  id  ;«-     (197) 

reduce  197 
state  256 

paraSdecl  I   idSlist  :  mode   typeSmark   opt  .  $  .expr  .«• 
(186) 

•   reduce  186 
state  257 

opt. $. expr.  :   :=«-expr 

opt  .unarySop.  :  «■     (81) 

NOT   shift  53 

+   shi  ft  51 

-   shift  52 
reduce  81 

expr   goto  287 

simpleSexpr   goto  48 

rel   goto  47 

opt .unarySop.   goto  49 

unarySop   goto  50 
state  258 
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rangeSconstr  :   RANGE  range*     (25) 
reduce  25 
state  259 

range  :   range$id  ..  si  mpl  e$expr«-     (26) 
reduce  26 
state  260 

fst.S.compSassoc.  :   f st . $ .compSassoc .  >    comp$assoc«- 
(42) 

reduce  42 
state  261 

f  st  .$  .cho  i  ce  •  :   f  st  .S.choi  ce.  !  choice*-     (45) 
reduce  45 
state  262 

choice  :   range$id<-     (52) 

•  reduce  52 
state  263 

choice  :   rest  rSchoi  ce«-     (53) 

•  reduce  53 
state  264 

compSassoc  :   restrSchoice   f  st  .  $  .choi  ce.   =>   expr«- 
(48) 

expr  :   expr«-log$oo  rel 
AND   shift  69 
OR   shift  70 
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XOR   shift  71 

•  reduce  48 
logSoo   goto  68 

state  265 

opt .. 1 st . $.choi ce .. S .expr  .  :   f  st  .S.choi  ce  .  =>  expr«- 
(47) 

expr  :   expr«-1og$op  rel 

AND   shift  69 

OR   shift  70 

XOR   shift  71 
reduce  47 

logSoo   goto  68 
state  266 

stmt  :   <<  id  >>  stmt*     (117) 

•  reduce  117 
state  267 

assi  gnment  $st  mt  :   var  :=  expr  ;  «■     (129) 
reduce  129 
state  268 

assi  gnment  Sstmt  :   name  :=  expr  ;«-     (130) 

•  reduce  130 
state  269 

exitSstmt  :   EXIT  opt. id.  opt .  WHEN.  cond.  ;«-     (161) 
reduce  161 
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state  270 

opt  .WHEN. cond.  :   WHEN  cond<-     (160) 
reduce  160 
state  271 

f st .condSext .  :   f  st  .condSext  •  cond$ext«- 
reduce  141 
state  272 

condSext  :   AND.  THEN«-expr 

opt  .unarySop.  :  «■     (81) 

NOT   shift  53 

♦  shift  51 

-  shift  52 

•  reduce  81 
expr   goto  288 
simpleSexpr   goto  48 
re)       goto  47 

opt .unarySop.   goto  49 
unarySop   goto  50 
state  273 

condSext  :   OR.ELSE«-expr 
opt  .unarySop.  :  <-     (81) 
NOT   shift  53 
t   shi  ft  51 

-  shift  52 


(141) 
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reduce  81 

expr   goto  289 

simoleiexDr   goto  48 

rel   goto  47 

opt .unarySoo.   goto  49 

unaryJop   goto  50 
state  274 

ifSstrnt  :  IF  cond  THEN 

seq$of$stmts«-fst.ELSIF.cond.THEN.seq$of$stmts. 
opt .ELSE. seqSof Sstmts.  END  IF  ; 

f  st  .ELSIF. cond. THEN. seqSofSstmts.  :  «-     (135) 

•  reduce  135 

f st  .ELSIF. cond. THEN. seqSofJstmts.   goto  290 
state  275 

fst  .WHEN, choi  ce..l st. $. choi  ce..$.seq$of$stmts.  : 
fst.  WHEN,  choice..  1st.  $.  choi  ce..$.seq$of$stmts.«-rt  HEN  choice 
fst .S.choi ce.  =>  seq$of$stmts 

caseSstmt        :  CASE         expr         OF 

fst.  WHEN,  choice..  1st.  $.  choi  ce.,$.seq$of$stmts.«-tND  CASE 

END   shift  292 

WHEN   shift  291 

•  error 
state  276 

basicSloop    :       LOOP    seqSof  Sstmt  s    END<-L00P    opt. id.    ; 
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LOOP   shift  293 
error 
state  277 

iterSspec  :   FOR  loopSpara  IN  opt  .REVERSE  .«-di  scSrange 
id   shi  ft  21 

•  error 

typeSmark   goto  125 
name   goto  107 
discSrange   goto  294 
subprogSarray Svar   goto  22 
sel ec t edScomp   goto  23 
predef i ned$at t r i   goto  24 

state  278 

opt. REVERSE.  :   REVERSE*     (155) 

•  reduce  155 
state  279 

objSdecl  :   idSlist  :  opt  .CONSTANT  .  type  opt  .  $  .  expr  .  «■ ; 

;   shift  295 

.   error 
state  280 

typeSdecl  :   TYPE  id  IS  typeSdefn  ;  <-     (24) 
reduce  24 
state  281 

enum$t  ypeSdef  n    :       (    enum$lit«-/     fst.enumSHt.     ) 
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,   shift  296 

.   error 
state  282 

enumSl  it:   i  d«-     (32) 

.   reduce  32 
state  283 

enumSlit  :   char$str<-     (33) 

.   reduce  33 
state  28a 

arrayStypeSdef  n  :   ARRAY  (<-index  fst.S.  index.   )   OF 
typeSmark  ; 

id   shi  ft  21 
error 

type$mark   goto  299 

name   goto  107 

index   goto  297 

discSrange   goto  298 

subDrogSar raySvar   goto  22 

se 1 ec t edScomp   goto  23 

predef i nedSat t r i   goto  24 
state  285 

record$type$defn  :   RECORD  compSl  i  st«-END  RECORD 

END   shift  300 

.   error 
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state  286 

f  st  .ob  j  $dec  1  .  :   f  s t  .ob  j  Sdec  1  .<-ob  j  $oec  1 

comoSlist  :   f  st  .objSdecl  .«•     (57) 

id   shi  ft  66 

•   reduce  57 

objSdecl   goto  301 

idSlist   goto  100 
state  287 

oot.S.expr.  :   :=  expr«-     (12) 

expr  :   expr«-log$op  rel 

AND   shift  69 

OR   shift  70 

XOR   shift  71 
reduce  12 

logSoo   goto  68 
state  288 

expr  :   expr«-log$op  rel 

condSext  :   AND. THEN  expr*-     (143) 

AND   shift  69 

OR   shift  70 

XOR   shift  71 
reduce  143 

log$op   goto  68 
state  289 
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expr  :   expr«-log$op  re) 

condSext  :   OR. ELSE  expr«-     (144) 

AND   shift  69 

OR   shift  70 

XOR   shift  71 

♦  reduce  14a 
log$op   goto  68 

state  290 

f st .ELSIF.cond.THEN.seqSof Sstmts.  : 

f  st  .ELSIF.cond.THEN.seqSof  Sstmts. «-ELSIF  cond  THEN 
seqSof Sst mt  s 

ifSstmt  :  IF  cond  THEN  seqSofSstmts 
f st  .ELSIF.cond.THEN.seqSof Sstmts.<-opt .ELSE.seqSofSstmts.  END 
IF  ; 

opt  .ELSE.  seqSof Sstmts.  :  «■     (137) 

ELSE   shift  304 

ELSIF   shift  302 

•  reduce  137 

opt  .ELSE. seqSof Sstmts.   goto  303 
state  291 

fst. WHEN. choice.. 1st. S. choice. .S.seqSofSstmts.  : 
fst. WHEN. choice.. 1st. $. choice. .S.seqSofSstmts.  WHEN«-choice 
fst  .S.choi ce.  =>  seqSofSstmts 

OTHERS   shift  123 
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id  shift  171 
num  shift  89 
charSstr   shift  90 

•  error 

typeSmark   goto  125 
name   goto  107 
range$id   goto  262 

1 i  t   goto  172 

discSrange   goto  122 

choice   goto  305 

restrSchoice   goto  263 

subproqJarraySvar   goto  22 

sel ectedScomp   goto  23 

predef i nedSat t r i   goto  24 
state  292 

caseSstmt        :  CASE         expr         OF 

f  st  .WHEN,  choice.  .1st. $. choice. ,$.s eg $of$stmts.  END«-CASE 

CASE   shift  306 

•  error 
state  293 

basicSloop  :   LOOP  seq$of  Sstmt  s  END  L00P«-opt  .  i  d.  ; 
opt .  id.  :  «-     ( 151 ) 
id   shift  104 

•  reduce  151 
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opt .id.   goto  307 
state  294 

iterSspec    :     FOR    loopSpara    IN    opt. REVERSE. 
disc$range«-     (156) 

•  reduce  156 
state  295 

objSdecl  :   i  dS list  :  opt .CONSTANT .  type  opt.S.expr. 

;  ♦•    (13) 

.   reduce  13 
state  296 

enumSt  ypeSdef  n  :   (  enumSlit  t  «*f  st  .  enum$  1  i  t  .  ) 

f  st  .enum$1  i  t  .  :  «■     (29) 
reduce  29 

f st .enumSl i t .   goto  308 
state  297 

array$type$def  n  :   ARRAY  (  i  ndex«-f  st  .$  .  i  ndex  .   )   OF 
tyoeSmark  ; 

f st. $. index.  :  «■     (35) 
reduce  35 

fst.S. index,   goto  309 
state  298 

index  :   disc$range<-     (38) 

•  reduce  38 
state  299 
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index  :   type$mark«-     (39) 
discSrange  :   t  yoe$mark«-R  ANGE  range 
RANGE   shift  186 

•  reduce  39 
state  300 

record$type$defn  :   RECORD  compSlist  END«-RECORD 

RECORD   shift  310 

.   error 
state  301 

f  st  .obi  $ded  .  :   f  st  .ob  j  $dec  1  .  obj$decl«-     (56) 
.   reduce  56 
state  302 

fst.ELSIF.cond.THEN.seqSofSstmts.  : 

fst  .ELSIF.cond.THEN.seq$of$stmts.        ELSIF«-cond       THEN 
seq$of Sstmt s 

opt .unarySop.  :  *■     (81) 

NOT   shift  53 

+   shi  ft  51 

-   shift  52 

•  reduce  81 
expr   goto  199 
simpleSexpr   goto  48 
rel   goto  47 

opt  .unary Sop.   goto  49 
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unarySop   goto  50 

cond   goto  31 1 
state  303 

ifSstmt  :  IF  cond  THEN  seq$of$stmts 
fst. ELSIF. cond. THEN. seq$of$stmts.  opt. ELSE. seq$ofSstmts.*-END 
IF  ; 

END   shift  312 

•  error 
state  304 

opt  .ELSE.seqSof  Sstmts.  :   ELSE«-seq$of  $s  t  mt  s 
f  st  .stmt  .  :  «-     (1  12) 

•  reduce  1 12 
fst. stmt,   goto  94 
seq$of$stmts   goto  313 

state  305 

fst. WHEN. choice.. 1st. $. choice. . $ . seq$o f Sstmt s  .  : 
f st .WHEN. choi  ce.. 1st. $. Choi ce..$.seq$of$stmts.  WHEN 

choi  ce«-f  st  .$  .choi  ce.  =>  seq$of$stmts 

fst  .S. choice.  :  «-     (44) 

•  reduce  44 

f st .S.choi ce.   goto  314 
state  306 

caseSstmt        :  CASE         expr         OF 

fst  .WHEN. choi  ce.  .  1st  .$. choi  ce.  .S.seqSof  Sstmts.    END    CASE*- 
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(147) 

reduce  147 
state  307 

basicSloop  :   LOOP  seq$of$stmts  END  LOOP  opt. id.*-; 

;   shift  315 

•   error 
state  308 

f st .enum$l i t  .     :       f  s  t  .  enuitiS  li  t  .  «*enum$  1  i  t 

enumSt  yDeSdef  n  :   (  enum$lit  /  f  st  .  enumJ  1  i  t  .«-) 

id   shift  282 

charSstr   shift  283 

)   shi  ft  317 
error 

enum$ I i  t   goto  316 
state  309 

fst.S.  index.  :   fst  .$.  index  .♦•#  index 

array$type$def  n  :   ARRAY  (  index   f  st  .  S  .  i  ndex  .<-)   OF 
typeSmark  ; 

)   shift  319 

,   shift  318 
error 
state  310 

record$type$defn  :    RECORD   compSlist   END   RECORD*- 

(5a) 
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cond«-THEN 


THEN      seqSofSstmts 
opt. ELSE. seq$of$stmts. 


•  reduce  54 
state  311 

f  st  .ELSIF.cond.THEN.seqSof  Sst-nts. 
f St .ELSIF.cond.THEN.seqSof Sstmts.        ELS  IF 
seqSof Sstmt  s 

THEM   shift  320 
error 
state  312 

ifSstmt     :      IF     cond 
fst.ELSIF.cond.THEN.seq$of$stmtS. 
END«-IF  ; 

IF   shift  321 

•  error 
state  313 

oot .ELSE.seqSof Sstmts.  :   ELSE  seqSof  Sstmt  s«-     (138) 
reduce  138 
state  314 

f  st  .S.choi  ce.  :   fst  .S.choi  ce.«- !  choice 

f st .WHEN, choice.. 1st. S.choi  ce.  . $. seqSofSstmts.  : 
fst .WHEN. choi ce. . 1st .S.choi ce. .$.  seqSof Sstmt s .  WHEN  choice 
f  st  .$. choice. ♦•  =  >  seqSofSstmts 

=>   shift  322 

!   shift  225 

•  error 
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state  315 

basicSloop  :   LOOP  seqSofSstmts  END  LOOP  opt. id. 
(153) 

reduce  153 
state  316 

f  st  .enumS  1  i  t  .  :   fst.enumSHt.  enumSHt*-     (30) 
reduce  30 
state  317 

enumSt  ypeSdef  n  :    (   enumSlit  ,       fst.enumSHt. 
(31) 

•  reduce  31 
state  318 

fst.S.  index.  :   fst.S.  index.  ,«-index 
id   shift  21 

•  error 

typeSmark   goto  299 
name   goto  107 
index   goto  323 
discSrange   goto  298 
suborogSarraySvar   goto  22 
sel ec tedScomp   goto  23 
predef i nedSat t ri   goto  24 

state  319 

arrayStypeSdef n  :   ARRAY  (  index 


)«• 


fst.S. index.   )<-0F 
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typeSmark  ; 

OF   shift  324 
error 
state  320 

fst. ELSIF. cond. THEN. seqSofSstmts.  : 

fst .ELSIF. cond. THEN. seqSofSstmts.  ELSIF  cond 

THEN«-seqSof  Sstmts 

f  st  .stmt .  :  «-     (1  12) 

•  reduce  1  12 
fst. stmt,   goto  9a 
seqSofSstmts   goto  325 

state  321 

ifSstmt  :  IF  cond  THEN  seqSofSstmts 
f St .ELSIF. cond. THEN. seqSofSstmts.  opt . ELSE . seaSo f Sstmt s .  END 
IF*-; 

?   shift  326 

•  error 
state  322 

f st  .WHEN. choice. . 1st. S. choice. .$. seqSof Sstmt s .  : 
f st .WHEN. choice. . 1st .$. choice. .$. seqSofSstmts.  WHEN  choice 
fst  .S.choi  ce.  =>«-seqSof  Sstmt  s 

f  st  .stmt .  :  <-     (1 12) 

•  reduce  1 12 
fst. stmt.   goto  9H 
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seqSofSstmts   goto  327 
state  323 

f  st  .$.  i  ndex  .  :   fst.S. index.  /  index*-     (36) 
reduce  3b 
state  324 

arrayStypeSdef n  :  ARRAY  (  index  fst.S. index.  ) 
OF«-type$mark  ? 

id   shift  21 

•  error 

typeSmark   goto  328 
name   goto  107 
sudorogSar ray $var   goto  22 
se 1 ec t eaScomp   goto  23 
predef i nedSat t r i   goto  24 

state  325 

fst.ELSIF. cond. THEN. seqSofSstmts.  : 

f st .ELSIF. cond. THEN. seqSof Sstmts.      ELSIF      cond     TuEN 
seqSof  Sstmts«-     (136) 

•  reduce  136 
state  326 

ifSstmt  :  IF  cond  THEN  seqSofSstmts 
fst  .ELSIF.cond.THEN.seqSof Sstmts.  opt . ELSE . seqSof Sstmt s .  END 
IF  ;«■     (139) 

reduce  139 
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state  327 

fst. WHEN. choice.. 1st. $.choice..$.seq$of$stmts.  : 
fst .WHEN. choice. .1st .$. choice. .$.seq$of$stmts.  WHEN  choice 
f  st  .$. choice.  =>  seqSof  $stmts«-     (146) 

•   reduce  146 
state  328 

array$type$def n  :  ARRAY  (  index  fst. $. index.  )  OF 
type$mark«-; 

;   shift  329 
error 
state  329 

array$type$def n  :   ARRAY  (  index  fst.S. index.   )   OF 
typeSmark  ;  «■     (37) 
reduce  37 
71/95  terminals*  113/150  nonterminals 
205/250  grammar  rules*  330/475  states 
0  sh i ft /reduce*  0  reduce/reduce  conflicts  reported 
113/150  working  sets  used 

memory:  states,etc.  2118/4000,  parser  458/1500 
230/250  distinct  lookahead  sets 
404  extra  closures 
330  shift  entries,  12  exceptions 
193  goto  entries 
203  entries  saved  by  goto  default 
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Ootimizer  soace  used:  input  935/4000,  outout  380/1500 

380  table  entries/  0  zero 

maximum  spread:  256,  maximum  offset:  324 
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APPENDIX  D 

Test  Programs  and  Outputs 

This  Appendix  illustrates  the  scanner/parser  actions 
accomplished  by  this  thesis.  The  test  programs  were  written 
to  include  the  syntactic  constructs  of  Ada/MCS  and  to  fully 
exercise  the  capibilities  of  the  parser  and  scanner.  The 
first  four  orograms  include  the  output  of  the  scanner/parser 
in  order  to  demonstrate  the  output  format.  The  final  six 
programs  are  orovided  with  no  output.  The  odd  numbered  pro- 
grams are  syntactically  correct  and  eacn  program  is  followed 
by  a  similar  orogram  with  an  error  included. 
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Program  one 

FUNCTION  sin  IS 
BEGIN 


FOR  x  IN  z  RANGE  1..10 

LOOP 

x  :  =  a  +  b ; 

END  LOOP; 
cos ( x , y ) ; 
RETURN  x  ; 


ENO  sin; 
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Output  one 


14  J  FUNCTION 

opt.visSrestriction. 

opt .SEPARATE. 

subprogSnat ure 
54  !  sin 

J  designator 
18  !  IS 

opt . formal $oart  . 

opt .RETURN. typeSmark. 

subprogSspec 

BEGIN 

opt .useSc 1 ause . 

f st .dec  1 . 

f st .body. 

dec  1 arat  i  veSpart 
f st .stmt  . 
13  !  FOR 
5a  ;  x 

!  loopSpara 
17  !  IN 
5a  !  z 

!  oot. REVERSE. 
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!  name 
29  j  RANGE 

!  typeSmark 
55  !  1 
!  lit 
J  rangeSid 
71  !  .. 
55  !  10 

!  opt  .unarySop • 
!  lit 
pri 
f  ac 

f st .mul t Sod. f ac  . 
19  |  LOOP 
term 

fst.addingSop.term. 
s  i  mpl e$expr 
range 

di  scSrange 
i  terSspec 
opt • i  terSspec • 
f st .stmt . 
54  !  x 
!  name 
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70  !  :  = 

5a  ;  a 

}  opt ,unary$op. 
{  name 
92  {  t 
ppi 
f  ac 

f st .mu 1 t Sop.  f ac  . 
term 

fst.addingSop.term. 
!  addingSoo 
54  {  b 
{  name 

78  j  ; 

pri 
f  ac 

f st .mul t Sod. f ac  . 
term 

fst .addingSop.term. 
si  mp I eSexpr 

opt .relal Jop.simpleSexpr. 
rel 
expr 
assi  gnment  Sst mt 
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si  mpl e$st mt 

stmt 

f st . stmt  . 
11  !  END 

!   seq$of$stmts 
19  !  LOOP 

78  !  ; 
opt • i d. 
basi  c$1 ooo 
1 oopSstmt 
compoundSstmt 
Stmt 
f St . St mt  • 

54  !  cos 
{  name 

79  !  ( 
5a  !  x 

!  opt .unary  Sop. 
!  name 
82  !  , 

pri 

f  ac 

f st .mul t Sop. f ac . 

term 
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fst.addingSop.term. 

si  mpl eSexpr 

opt.relalSoo.simpleSexpr. 

re) 

expr 

f st .5 .expr. 
5a  !  y 

!  oDt.unarySop. 
}  name 
80  !  ) 

pr  i 

f  ac 

f st .mul t  Sop. f ac . 

term 

fst.addingSop.term. 

si  mpl eSexpr 

opt  .rel al Sop.simpleSexpr. 

re  1 

expr 

f st .S.expr . 

subProgSarraySvar 

name 
78  !  ; 

!   subprogScal 1 Sstmt 
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si  mpl e$stmt 
stmt 

f st . stmt  • 
32  !  RETURN 
5a  !  x 

!  oot.unapySopt 
{  name 
78  !  ; 
pri 
f  ac 

f st .mul t  $oo. f ac  . 
term 

fst .addingSop.term. 
s  i  mp 1 e$exor 

opt .  rel al Sop.s  i  mpl eSexpr 
rel 
expr 
opt .expr . 
ret urnSst mt 
si  mpl eSstmt 
stmt 

fst .stmt  . 
11  !  END 

!   seq$of$stmts 


17a 


5a  J  sin 

7b  !  ; 

subprogSbody 

un i  t  Sbody 

compi 1  at  i  on$uni  t 
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Program  two 


FUNCTION  sin  IS 
BEGIN 


FOR  x  IN  z  RANGE  1..10 
LOOP 


x  : 

END  LOOP; 
cos (x,y); 
RETURN  x   ; 
END  ?  sin; 


=  a  ♦  t>; 


176 


Output  two 


ia  !  FUNCTION 

oot.visSrestrict  ion. 

opt. SEPARATE. 

subproginat ure 
54  J  sin 

!  designator 
18  J  IS 

opt . forma  1 Spart  . 

op t. RETURN. typeSmark. 

subprogSsoec 

BEGIN 

opt . use  Be  1 ause. 

f st .dec  1 . 

f st .body . 

dec  1 arat  i  veSpart 
f st . stmt  . 
13  ;  FOR 
5a  !  x 

•  loopSpara 
17  !  IN 
5a  !  z 

!  opt. REVERSE. 
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!  name 
29  J  RANGE 

!  typeimark 
55  !  1 
!  lit 
J  rangeSid 
71  {  .. 
55  {  10 

!  oot .unarySop. 
!  lit 
pr  i 
f  ac 

f st .mul t Sod. f ac  . 
19  J  LOOP 
term 

fst.addingSop.term 
si  mpl eSexDr 
range 

di  scSrange 
i  terSspec 
opt . i  t  erSspec  • 
f st . stmt  • 
5^  !  x 
!  name 
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70  !  :  = 

5a  J  a 

S  opt .unarySop. 
}  name 
98  !  t 
pr  i 
f  ac 

f st .mu 1 t Sop. f ac  . 
term 

fst.addingSop.term. 
!  addingSop 
54  !  b 
!  name 

78  ;  ; 

pr  i 
f  ac 

f st .mul t Sop. f ac . 
term 

fst .addingSop.term. 
si  mpl eSexpr 

opt .  rel a  1 Soo.simpleSexpr. 
rel 
expr 
assi  gnment  Sst mt 
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s  i  mpl e$stmt 

stmt 

fst.stmt. 
11  !  END 

!   seqSofSstmts 
19  !  LOOP 

78  !  ; 
oot .id. 
bas  i  c  $  1 oop 
1 oooSstmt 
compoundSs tmt 
stmt 
fst.stmt. 

5a  !  cos 
{  name 

79  ;  ( 

54  !  x 

•  opt • unary  Sop . 
}  name 
82  !  , 
pr  i 
fac 

f st .mul t  Sod. fac 
term 
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fst  .adding Sop. term. 

si  mpl e$expr 

opt.relal$op.simple$expr. 

rel 

expr 

fst .S.expr . 
54  !  y 

!  opt .unarySop. 
!  name 
80  !  ) 

pri 

f  ac 

f st .mul t Sop. f ac . 

term 

fst  .addingSop.term. 

si  mpl e$expr 

oPt.relal$op.simple$expr. 

rel 

expr 

f st . $ .expr. 

subprog$array$var 

name 
78  !  ; 

!   subprogScal 1 Sstmt 
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si  mpl eSstmt 
stmt 

f st • stmt  • 
32  !  RETURN 

sa  ;  x 

J  opt.unary$OD. 
!  name 


78  :  ; 


pr  i 

f  ac 

f st .mul t  Sop . f ac  . 

term 

fst .add ing$op. term. 

s  i  mpl eSexpr 

opt .  re  1 al Sop • s  i  mp 1 eSexpr . 

rel 

expr 

oot .expr. 

returnSstmt 

si  mp ) eSstmt 

stmt 

f St • Stmt • 
11  J  END 

!   seqSofSstmts 
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Scanner  error : unknown  symbol 
5a  !  sin 

78  ;  ; 

subprogSbody 

uni  t  Sbody 

compi 1  at  i  on$uni  t 


183 


Program  three 

PACKAGE  test  IS 

TYPE  s  IS  RANGE  1  ..  10  ; 

TYPE  t  IS  RECORD 

idfer,  idferl,  idfer2  :  s; 

END  RECORD; 

idl  :  t; 

TYPE  set  IS  ARRAY(red,ye1 low, blue)  OF  colors; 

pri  mary  :  set ; 

TYPE  victor  IS  ( wh i skey , f ox t rot ) ; 
END  test 
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Output  three 


27  !  PACKAGE 

OPt.visSrestriction. 
Opt. SEPARATE. 
modSnat ure 
54  !  test 
18  !  IS 
36  !  TYPE 

S  opt .useSc 1 ause. 
!  f st .dec  1  . 

54  {  s 
18  !  IS 

29  ',  RANGE 

55  !  1 
!  lit 

!  rangeSid 
71  !  .. 
55  !  10 

!  opt .unarySop. 
!  lit 
pr  i 
f  ac 
f st .mul t  Sop . f ac  . 
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78  J  ; 

term 

fst.addingSop.term. 

si  mp  I eSexpp 

range 

range$const  r 

i  nt $t ypeidef n 

t ypeSdef n 

t ypeSdec 1 

decl 

f st .dec  1  . 
36  !  TYPE 
5a  {  t 
18  !  IS 
30  J  RECORD 

!  f st .ob  j  Sdec 1  . 
54  J  idfer 

!  f st .$. i  d. 
82  !  , 
5a  !  idferl 

!  f st .$. id. 
82  !  , 
5a  !  idfer2 
!  f st .$. i  d. 
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91  !  : 

!  id$1 i  st 
54  !  s 

!  opt. CONSTANT. 
J  name 
78  !  ; 

typeimark 
type 

oDt .$ .expr . 
ob j  Sdec 1 
f st .ob j  Sdec 1  . 
11  !  END 

!  compSl i  st 
30  !  RECORD 

!  recordSt yDeSdef n 
J  typeSdefn 
78  !  ; 

typeSdec 1 
dec  1 

f st .decl  . 
54  !  idl 

!  f st .$. id. 
91  !  : 

!  id$) ist 
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54  !  t 

!  opt .CONSTANT. 
!  name 
78  !  ; 

t ypeSmark 

type 

opt .$ .expr • 

ob j  Sdec 1 

dec  1 

f st .dec  1  . 
36  !  TYPE 
54  J  set 
18  {  IS 
3  {  ARRAY 

79  :   c 

54  !  red 
{  name 
82  !  , 

t  ypeSmark 
i  ndex 

f st • $ • i ndex . 
54  !  yellow 

!  name 
82  !  , 
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t ypeSmark 
i  ndex 

f st  .$.  i ndex . 
5a  {  blue 

{  name 
80  !  ) 

t  ypeSmark 
i  ndex 

f st •$• 1 ndex . 
!  OF 

!  col ors 
name 


23 

5a 

78 


5a 


9t 


5a 


typeSmark 

arraySt ypeSdef n 
typeSdef n 
typeJdecl 
dec  1 

f st .dec  1  . 
!  pr i mary 

f st .$. id, 

■  • 

id$l i  st 
!  set 
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!  opt .CONSTANT. 
!  name 

78  :    ; 
typeSmark 
type 

opt .S.expr . 
ob j  Sdec  1 
dec  1 
f st .dec  1  . 

36  !  TYPE 
54  !  victor 
18  J  IS 

79  J  ( 

54  ;  wh  i  skey 

!  enumSl i  t 
82  !  , 

!  f st .enum$l i  t  • 
54  J  foxtrot 

!  enum$ 1 i  t 

{  f st .enum$  lit. 

80  !  ) 

!  enumSt yDeSdef n 
J  typeSdefn 
78  !  ; 


190 


t ypeSdec 1 

dec  I 

f st .dec  1  . 
11  !  END 

f  st  .body, 

dec  1 arat  i  veSpart 

oot.IS.declarativeSpart 
54  !  test 

opt .id. 

modSspec 

uni  t Sbody 

compi 1  at  i  on$uni  t 
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Program  four 

PACKAGE  test  IS 

TYPE  s  IS  RANGE  1  ..  10  ', 

TYPE  t  IS  RECORD 

idfer,  idferl,  i  d  f  e  r  2  :  s; 

END  RECORD; 

i  d  1  :  t  ; 

TYPE  set  IS  ARRAY(red,yel low, blue)  OF  colors; 

primary  :  set; 

TYPE  victor  IS  ( wh i skey , f ox t rot  )  ; 
END  test  ; 
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Output  four 


27  !  PACKAGE 

OPt.visSrestriction 
OPt. SEPARATE. 
modSnat ure 
5a  !  test 
18  5  IS 
36  !  TYPE 

!  opt .use  Be  1 ause • 
I  f st .dec  1  • 
5a  J  s 
18  !  IS 
29  !  RANGE 
55  !  1 
!  lit 
!  rangeSid 

71  :   .. 

55  !  10 

!  opt .unarySop. 
!  lit 
pri 
f  ac 
f st .mul t Sod. f ac . 
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78  !  ; 

term 

fst .addingSop.term 

si  mpl eSexop 

range 

range$const r 

i  nt $type$def n 

t  ypeSdef n 

typeSdec 1 

dec  1 

fst .dec  1 • 
36  !  TYPE 
54  !  t 
18  I  IS 
30  !  RECORD 

J  fst .ob j  Sdec 1  . 
54  J  idfer 

!  fst .$. id. 
82  ;  , 
5a  J  idferl 

J  fst .$. i  d. 
82  !  , 
5a  !  idfer2 
!  fst .$. i  d. 


19a 


91  !  : 

!  id$1 i  st 
5a  !  s 

!  opt. CONSTANT. 
{  name 
78  !  ; 

typeSmark 
type 

opt . S.expr. 
ob j  Sdec 1 
f st  .od j  Sdec 1 • 
11  !  END 

!  comp$1 i  st 
30  J  RECORD 

J  record$type$def n 
{  typeSdefn 
78  J  ; 

t ype Jdec 1 
dec  1 

f st .dec  1  • 
5a  j  idl 

!  f st .$. id. 
91  J  : 

!  id$l ist 
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54  J  t 

!  oot .CONSTANT. 
!  name 

78  !  ; 
t  ypeSmark 
type 

opt .S.expr . 
ob j  $dec 1 
dec  1 
f st .dec  1  • 

36  !  TYPE 
54  !  set 
18  !  IS 
3  !  ARRAY 

79  !  ( 
5a  J  red 

!  name 
82  !  , 

t ypeSmark 
i  ndex 

f st •$• i ndex . 
54  !  yellow 

!  name 
82  J  , 
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t  ypeSmar k 

i  ndex 

f st  .$. i ndex . 
5a  }  blue 

!  name 
80  !  ) 

typeSmark 

i  ndex 

f st .$• i ndex  . 
21    :    OF 
54  !  colors 
!  name 

78  ;  ; 

t ypeSmark 

arrayStypeSdef n 
typeSdef n 
typeSdec 1 
dec  1 

f st .dec  1  . 
54  |  primary 

|  f  s  t .  $  .  i  d . 
91  {  : 

!  i  d$l i  st 
5a  !  set 
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1 
I 

opt .CONSTANT. 

1 
1 

name 

78 

•  • 

t  ypeSmark 

type 

opt . $ . exor . 

ob j  Sdec 1 

dec  1 

f st .dec  1  . 

36 

!  TYPE 

54 

!  victor 

18 

:    IS 

79 

!  ( 

5a 

!  wh  i  slcey 

• 

enum$ 1 i  t 

82 

• 

i 
i 

f st .enum$1 i  t  . 

5a 

!  foxtrot 

i 

t 

enum$1 i  t 

i 
i 

f St .enumS lit. 

80 

:  ) 

enum$type$defn 

!  typeSdefn 

78 
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typeSdec 1 

dec  1 

f st .decl . 
11  !  ENO 

f  st .body. 

declarativeSpart 

OPt.IS.declarativeSoart. 
54  !  test 

opt .id. 

modSspec 

uni  t  Sbody 

compi 1  at  i  onSuni t 
78  !  ; 


syntax  error 
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Program  f  i ve 

PROCEDURE  test<-it  IS 

a#aboPting*  abo:  integer; 

TYPE  t  IS  ARRAYCx  RANGE  1..10,  y  RANGE  1..3)  OF  float; 

amat  r  i  x  :  t ; 
BEGIN 

a  :=  lb#3ab7; 

b  :=  "this  is  a  character  string.";  --  this  is  a  commentliii 

abo  :=  6.5E-4; 
END  test«-it  ; 
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Program  si  x 

PROCEDURE  test«-it  IS 

a#aborting,  abo:  integer; 

TYPE  t  IS  array(x  RANGE  1..10,  y  RANGE  1..3)  OF  float; 

amat  pi  x  :  t ; 
BEGIN 

a  :=  16#3ab7; 

b  :=  "this  is  a  character  string.";  --  this  is  a  comment i 1 i 

abo  :=  6.5E-4; 
ENO  test«-it  ; 
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Program  seven 

PROCEDURE  idfer  IS 

TYPE  t  IS  ARRAYCsubscript  RANGE  number . .number )  OF  idfer; 
i  df er ,    i  df  er  :  i  df er» 

idfer  :  CONSTANT  t; 

BEGIN 

idfer  :=  number  *  number  MOO  idfer; 
LOOP 

IF  number  THEN 

idfer  : =  number; 
END  IF; 

EXIT  WHEN  (number); 
idfer  :=  char«-st  r  i  ng;    --  comment 
END  loop; 
END  idfer  ; 
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Program  eight 

PROCEDURE  idfer  IS 

TYPE  t  IS  ARRAYCsubscript  RANGE  number . .number )  OF  idfer; 
idf er ,  idfer  :  i  df er ; 

idfer  :  CONSTANT  t; 

BEGIN 

idfer  :=  number  *  number  MOD  idfer? 
LOOP 

IF  number  THEN 

idfer  : =  number ; 
END  IF 

EXIT  WHEN  (number); 
idfer  :?  char«-st  r  i  ng;    --  comment 
END  loop; 
END  idfer  ; 
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Program  nine 

PROCEDURE  test  IS 

idfer,  idferl*  idfer*2  :  s; 
BEGIN 

CASE  a  <  b  OF 

WHEN  number  => 
a  :=  c  +  d  /  e  ; 
END  CASE; 
END  test  ; 
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Program  ten 

PROCEDURE  test  IS 

idfer*  idferl/  idfer2  :  s; 
BEGIN 

CASE  a  <  b  OF 

a  :=  c  +  d  /  e  ; 

END  CASE; 
END  test  ; 
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